DCODETX.S 



4/11/95 
with stop 

!!!!!!!! note : for z8604 with external EEPROM & RS232 !!!!!!!!!!! 



EQUATE STATEMENTS 



XRGRPF 

XRGRPO 

S1B39 

S2B39 

S3B39 

SI 

S2 

S3 

smr 

csh 

csl 

clockh 
clockl 
doh 
dol 

csport 
dioport 
clkport 
****** 



. equ 

.equ 

.equ 

■ equ 

.equ 

.equ 

.equ 

.equ 

.equ 

.equ 

.equ 

.equ 

.equ 

. equ - 

.equ 

.equ 

.equ 

.equ 

**************** 



Of OH 
00H 

00000000b 
00000001b 
00000010b 
00000100b 
00001000b 
00000010b 
ObH 

00000100b 
11111011b 
00000010b 
11111101b 
00000001b 
11111110b 
P2 
P2 
P2 



expanded reg group F 
expanded reg group 0 
B39 value for SI 
B39 value for S2 
B39 value for S3 
P32 SI mask for Z86C04 
P33 S2 mask for Z86C04 
P31 S3 mask for Z86C04 
stop mode recovery 
P22 chip sel hi for 93c46 
P22 chip sel lo for 93c46 
P21 elk hi for 93c46 
P21 elk lo for 93c46 
P20 data out hi for 93c46 
P20 data out lo for 93c46 
chip sel port 93c46 
data i/o port 93c46 
elk port 93c4 6 



(WDT, SMR, PCON) 
(ports) 



CONTROL REG AND INITIAL VALUES 
**************** ********************** 



************************************************** 



STACKTOP 
STACKEND 
GPR_INIT 
RP_INIT 
IMR_INIT 
IPR_INIT 
. P01M_INIT 
P2M_INIT 
P3M_INIT 
PRE1_INIT 
T1_INIT 
TMR_INIT 
TMR__START 
P0_INIT 
P2_INIT 
P3_INIT 

SMR_INIT 
r 



. equ 

. equ 

. EQU 

. EQU 

.EQU ' 

.EQU 

.EQU 

.EQU 

.EQU 

.EQU 

. EQU 

.EQU 

.EQU 

.EQU 

.EQU 

.EQU 

.EQU 



07FH 
070H 
00H 
00H 

00000000B 
00001111B 
00000100B 
10010000B 
00000001B 
00001011B 
250D 

0O00OOO0B 
00001100B 
OOO0OOO0B 
00000000B 
00000000B 

11111010B 



*******************************, 



start of the stack. . . 

end of the stack 

init general purpose reg to 00H 

init register pointer to 00 

init intr mask reg (di) 

init intr priority reg 

init port 0&1 mode reg 

init port2 mode 

init port3 mode 

init prescalar 1 reg 

init counter/timer 1 reg /200 

init timer mode reg 

start timer 

init portO 

init port2 

init port3 

init SMR reg bitl hi OTP Lo Emulato 



PCON INIT 



.EQU 



11111110B 



; init Port control reg 



***************************************** ******************************* 

PREDEFINED CONTROL REG 
********************************************************** *******^^^^^^ A 



SPL 
GPR 
;RP 

/FLAGS 



.equ 255 

.equ 254 

.equ 253 

.equ 252 



; stack pointer 

; general purpose 

; register pointer 

; cpu flags 



M 
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RS2 320DELAY 


.EQU 


REGGRP 10+ 10 






RS2 32IDELAY 


.EQU 


REGGRP10+11 






RS2 32CCOUNT 


. EQU 


REGGRP 10+12 






RS2 32PAGE 


. EQU 


REGGRP 10+ 13 






RSCCOUNT 


.EQU 


REGGRP 10+ 14 






RSSTART 


.EQU 


REGGRP 10+ 15 






RS2320S 


. EQU 


00000100B " 


•RS232 


output bit set. 


RS2320C 


.EQU 


11111011B 


•RS232 


output bit clear 


RS2 320P 


.EQU 


PO 


•RS232 


output, port 


RS232IP 


.EQU 


P2 


-RS232 


input port 


RS232IM 


.EQU 


00010000B 


•RS232 


input mask 


.********************************************** 


******* ******************* 



GENERAL PURPOSE REGISTER GROUP 20H-2FH 
,********************************************************* *************** 



REGGRP 20 


.equ 


20H 


! 




Code 








TRC.O 


.equ 


REGGRP? 0" 


'; Trinary 


Roll 




s 


T OQ 

Libs 


TRC1 


.equ 


REGGRP 2 0+1 


; Trinary 


Roll 


Code 


T> r-i l 


s 




TRC2 


- ;equ 


REGGRP 2 0 + 2 


; Trinary 


Roll 


Code 




s 




TRC3 


.equ 


REGGRP2 0+3 


; Trinary 


Roll 


Code 




s 




TRC4 


.equ 


REGGRP2 0+4 


; Trinary 


Roll 


Code 




s 




1 KL, 0 


. equ 


t\lL>\3\3 t\ir ^. U ' -J 


; Trinary 


Roll 


Code 


REG 


s 




TRC6 


.equ 


REGGRP2 0 + 6 


; Trinary 


Roll 


Code 


REG 


s 




TRC7 


.equ 


REGGRP2 0+7 


; Trinary 


Roll 


Code 


REG 


s 




TRC8 


. equ 


REGGRP20+8 


; Trinary 


Roll 


Code 


REG 


s 




TRC9 


.equ 


REGGRP2 0+9 


; Trinary 


Roll 


Code 


REG 


's 




SYNC1 


.equ 


. REGGRP 2 0+10 


; sync pulse framel 








TRC10 


.equ 


REGGRP 2 0+11 


; Trinary 


Roll 


Code 


REG 


■ s 




TRC11 


. equ 


REGGRP2 0 + 12 


; Trinary 


Roll 


Code 


REG 


's 




TRC12 


. equ 


REGGRP2 0+1 3 


; Trinary 


Roll 


Code 


REG 


•s 




TRC13 


. equ 


REGGRP2 0 + 1 4 


; Trinary 


Roll 


Code 


REG 


' s 




TRC14 


.equ 


REGGRP 2 0+ 15 


; Trinary 


Roll 


Code 


REG 


1 s 




trcO 


. equ 


rO 


; Trinary 


Roll 


Code 


REG 


•s 


LSB 


trcl 


. equ 


rl 


/ Trinary 


Roll 


Code 


REG 


*s 




trc2 


.equ 


r2 


/Trinary 


Roll 


Code 


REG 


• s 




trc3 


.equ 


r3 


; Trinary 


Roll 


Code 


REG 


's 




trc4 


. equ 


r4 


; Trinary 


Roll 


Code 


REG 


*s 




trc5 


. equ 


r5 


; Trinary 


Roll 


Code 


REG 


f s 




trc6 


.equ 


r6 


,-Trinary 


Roll 


Code 


REG 


f s 




trc7 


.equ 


r7 


;Trinary 


Roll 


Code 


REG 


*s 




trc8 


. equ 


r8 ■ 


; Trinary 


Roll 


Code 


REG 


•s 




trc9 


.equ 


r9 


; Trinary 


Roll 


Code 


REG 


's 




syncl 


. equ 


rlO 


;sync jpulse framel 








trclO 


. equ 


rll 


; Trinary 


Roll 


Code 


REG 


f s 




trcll 


. equ 


rl2 


; Trinary 


Roil 


Code 


REG 


»s 




trcl2 


. equ 


rl3 


; Trinary 


Roll 


Code 


REG 


•s 




trcl3 


.equ . 


rl4 


; Trinary 


Roll 


Code 


REG 


's 




trcl4 


. equ 


r!5 


; Trinary 


Roll 


Code 


REG 


•s 





************************************************************************ 

GENERAL PURPOSE REGISTER GROUP 30H-39H (3Ah-3FH reserved for stack) 
******************************************************* * * *************** 



REGGRP 30 

TRC15 

TRC16 

TRC17 

TRC18 

TRC19 

SYNCO 



. equ 
.equ 
.equ 
.equ 
. equ 
.equ 
.equ 



30H 

REGGRP 30 
REGGRP 3 0+1 
REGGRP30+2 
REGGRP30+3 
REGGRP 3 0+4 
REGGRP 30+ 5 



Trinary Roll Code REG's 
Trinary Roll Code REG'S 
Trinary Roll Code REG 1 s 
Trinary Roll Code REG 1 s MSB 
sync pulse frameO 
sync pulse frameO 
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RCMIRO 
RCMIR1 
RCMIR2 
RCMIR3 



.equ 
.equ 
.equ 
.equ 



REGGRP30+6 
REGGRP 3.0 + 7 
REGGRP 3 0+8 
REGGRP 3 0+9 



RC mirrored less LSB 
RC mirrored less 
RC mirrored less 
RC. mirrored less MSB 



trclS 
trcl6 
trcl7 
trcl8 
trcl9 
syncO 
rcmirO 
rcmirl 
rcmir2 
r emir 3 
******** 

GENERAL 
******** 



.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 



rO 
rl 
r2 
r3 
r4 
r5 
r6 
rl 
r8 
r9 



Roll 


Code 


REG 1 


s 


Roll 


Code 


REG 1 


s 


Roll 


Code 


REG' 


s 


Roll 


Code 


REG 1 


s 



sync pulse frameO 
spare 

RC mirrored less LSB 
RC mirrored less 
RC mirrored less 
RC mirrored less MSB 



************************************************************ 

PURPOSE REGISTER GROUP 40H-4FH 
************************************************************ 



REGGRP4 0 


.equ 


40H 




XMTREG 


.equ . 


REGGRP 4 0 




LPCTR 


.equ 


' REGGRP40+1 




XROO 


.equ 


•REGGRP40+2 




XMTREG 1 


_ .equ 


REGGRP 4 0+3 




ACODEPTR 


. .equ 


REGGRP 4 0+4 




MTFLAG 


. equ 


REGGRP 4 0+5 




DIVBY10 


.equ 


REGGRP 4 0 + 6 




TRCPTR. 


. equ 


REGGRP 4 0+7 




TEMPH 


.equ; - 


REGGRP4 0 + 8 


•ee 


TEMPL 


. equ 


REGGRP4 0+9 


■ee 


TEMP 


.equ 


REGGRP 4 0+10 


■ ee 


MTEMPH 


.equ 


REGGRP 4 0+11 


-memory 


MTEMPL 


. equ 


REGGRP 4 0+1 2 . 


•memory 


MTEMP 


.equ 


REGGRP 4 0+1 3 


•memory 


SERIAL 


.equ 


REGGRP 4 0+1 4 


• serial 


ADDRESS 


. equ 


REGGRP 4 0+1 5 


•eeprom 


xmtreg 


.equ 


* rO 




lpctr 


.equ 


rl 




xrOO 


. equ 


r2 




xmtregl 


.equ 


r3 




acodeptr 


.equ 


r4 




mtflag 


.equ 


r5 




divbylO 


.equ 


r6 




trcptr * 


.equ 


r7 




temph 


.equ 


r8 




tempi 


.equ 


r9 




temp 


.equ 


rlO 




m temph 


.equ 


rll 




mtempl 


.equ 


rl2 




mtemp 


.equ 


rl3 




serial 


.equ 


rl4 




address 


. equ 


. rl5 





* * ★ * * *• * ********************** * * *•* 

GENERAL PURPOSE REGISTER GROUP 50H-5FH 
******************************************************** 

REGGRP 50 .equ 5 OH 

ACODE0BM- .equ REGGRP 50 

AC ODE IBM .equ REGGRP 5 0+1 
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. equ 




ACODE3BM 


.equ 


REGGRP 5 0+3 " 


AC ODE 4 BM 


iequ 


REGGRP50+4 




. equ 


DFCCPP ^ ft 4- ^ 


ACODE bBM 


. equ 


birr^CD ^ ft 4- £ 


ACODE /BM 


. equ 




ACODLodM 


. equ 


DP^DD ^ ft 4- ft 




. equ 


RTf^flRP S ft + Q 


7> /-» /-\ t-n r"~i -I pi T3 JvJ! 

ACODElUoM 


. equ 


DrrrDD^n+i ft 


ACODE 1 IBM 


. equ 


Dr/^cnD^n + i 1 


AC0DE12BM 


. equ 


DrPrDDRH^i o 


ACODE 13BM 


. equ. 


KLooKr jutIo 


ACODE 1 4BM 


. equ 


orrrDD s^ftj.i /i 
KbboKr jUTi«i 


AC0DE15BM 


. equ 


DtTT^r'PD ^ ft 4^. 1 Cv 


acodeObm 


. equ 


*- ft 


acodelbm 


. equ 


r l 


acode2bm 


. equ 




acode3bm 


. equ 


r o 


acode4bm 


.equ 


r4 


acodeSbm 


. equ 


r5 


acode 6bm 


.equ 


r6 


acode7bm 


.equ 


r7 


acode 8bm 


. equ 


r8 


acode9bm 


. equ 


r9 


acodelObm 


' . equ 


rlO 


acodellbm 


. equ 


rll 


acodel2bm 


.equ 


rl2 


acodel3bm. 


. equ 


rl3 


acodel4bm 


.equ 


rl4 


acodel5bm 


.equ 


' rl5 



***★*★★** 

GENERAL 
***★*★*★ 

REGGRP60 

ACODE 16BM . 

AC0DE17BM 

AC0DE18BM 

ACODE 19BM 

RSFLAG 

XMTFLAG 

AC19 

RCP 

LPCNTRA - 
FRMCTRH 
FRMCTRL 
ATMP 

;acode_h 
; acode_l 
LPCTR1 
APTR 

acode 16bm 

acodel7bm 

acodel8bm 

acodel9bm 

rsf lag 

xmtflag - 

acl9 



•A'itlciclriclC'fclrlcic'k'k'k'iC'k'k'k'&'k'k tV.tV T^TVTVTVTVTiTi*TV7iTVTVTVTVTiTVTi*TiTiT^*TVTVTi'A' 

PURPOSE REGISTER GROUP 60H-6FH 



************************************************* 

.equ 60H 

.equ REGGRP60 

.equ REGGRP 60+1 

.equ REGGRP 60+2 

.equ. REGGRP 60+3 

.equ REGGRP 6 0+4 

.equ REGGRP 60+5 

.equ REGGRP 60 + 6 

.equ REGGRP 60+7 

.equ REGGRP 60+8 

.equ REGGRP 6 0+9 

.equ REGGRP 60+10 

.equ REGGRP 60+11 

.equ REGGRP 60+1 2 

.equ REGGRP 6 0+1 3 

.equ REGGRP.60 + 14 

.equ REGGRP 60+ 15 



acode tmp storage 
acode rom. pointerh 
acode rom pointerl 
counter 

acode ram pointer 



.equ 
.equ 
. equ 
. equ 
.equ 
.equ 
.equ 



rO 
rl 
r2 
r3 
r4 
r5 
r6 



ft-lo 
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rep 


.equ 


r7 




Ipcntra 


.equ 


r8 




f rmctrh 


.equ 


r9 




f rmctrl 


.equ 


no 




atmp 


.equ 


rll 


•acode tmp storage 


a code 


.equ 


rrl2 


-a code register pair . 


acode_h 


. equ 


rl2 


acode rom pointer h 


a code 1 


. equ 


rl3 


•acode rom pointer 1 


lpctrl 


. equ 


rl4 


counter 


aptr 


.equ 


rl5 


•acode ram pointer 


. ******** ************** 


************************************************** 


; MACROS 








. ********************** 


***************************** * * ******************* 


WDT 


.macro 








.byte 


5fh 






.endm 






WDK 


.macro 








.byte 


4fh 






.endm 






FILL 


.macro 








.byte 


OFFh 






.endm 






. ********************** 


************************************************** 


. ********************** 


************************************************ 


****** 




Interrupt Vector 


Table ***** 


. ********************** 


*************************** *,* ******************* 


. ********* ** *********** 


************ * * **************************** ** ****** 




. org 


.0000H 






. word 


000CH 


•IRQO P3.2 




.word . 


000CH 


■IRQ1, P3.3 




. word 


OOOCH 


• IRQ2, P3 .1 




.word 


000CH 


•IRQ3, S/W generated 




.word 


OOOCH 


• IRQ4, S/W generated 




.word 


Tl INT 


-IRQ5, Timer Tl 



* * * * * * * ************************************************ * * * * * * *********** 
************************************************************************ 

**** START (poweron reset or stop mode) ***** 

****** * * **************************************************************** 
********************************** * * ************************************ 



.page 

.org OOOCH 



start : 
START : 



di 
WDT 



; disable interrupts for init 
; hit WDT 



************************************************************* *** ********* 

* Internal RAM Test and Reset All RAM = ?? mS * 

************************************************************************ 



INIT: 



srp #XRGRPF 



; no, point to control group use stack 
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Id 


rl5, #4 


;rl5= pointer (bottom of RAM) 


again : 


clr 


@rl5 


; write RAM(r5)=0 to memory 




inc 


rl5 






CP . 


rl5, #7FH 


;top of ram 7F 




jr 


ult , write_again 





********************************************************************** 
initialize registers 

srp #REGGRP 0 0 ; set the group 

Id SMR, #SMR_INIT ; set smr reg 

* * * * * ******************************************************************* 

STACK INITIALIZATION 
************************************************************************ 

SETSTACK: 

Id spl, #STACKTOP ; set the start of the stack 

****************************************************** * * * * * * * * ********** 

TIMER INITIALIZATION 
*********************************************** ************************* 

Id prel, #PRE1_INIT ; set the prescaler 

Id ti,#Tl_JENIT ; set the counter 

Id tmr, #TMR_START ; turn on the timer 

******************************* * * *************************************** 

PORT INITIALIZATION 
***** *.* ************************************ ************************* * * * * 

clr PO ; set portO lo 

clr P2 ; set port2 lo 

clr P3 ; set port3 lo 

Id p3m, #P3M_INIT ; set port 3 mode 

Id p2m, #P2M_INIT ; set port 2 mode 

Id pOlm, #P01M_INIT ; set port 1 mode 

************************************************************************ 

INTERRUPT INITIALIZATION 
************************************************************************ 

SETINTERRUPTS: 

Id ipr, #I-PR__INIT ; set the priority for timer 

********************************************************************** 

initialize EEPROM by reading it 
********************************************************************** 

CALL READMEMORY /settle EE lines 

************************************************************************* 
; MAIN LOOP CKBUTT0N1 

. ************************** ** ******************************************** 

CKBUTT0N1 : CALL CKB1 

LD ACODE 1 9BM , AC 1 9 

LD RCPTR,RCP 
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Get Rolling Code From EEPROM 
******* ***************************^ 



.********* ******************************************************** 


EE 


ADDRESS 11 


->RC10B, RC11B, RC12B, RC13B 


EE" 


ADDRESS 13 


->RC20B, RC21B, RC22B 


,RC23B 


EE" 


ADDRESS 15 


->RC30B, RC31B, RC32B 


, RC33B 


; *******************************************^ 


INITPTRS: 


srp 


#REGGRP00 






add 


RCPTR, #3 


;TOP OF RC RAM' 




CP 


RCPTR, #RC13B 






JR 


nz,CKRC23 






LD 


ADDRESS, #11 


; EE PTR 




JR 


GETRCODE 




CKRC23 : 


CP 


RCPTR, #RC23B 






JR 


nz, APTR15 






LD 


-ADDRESS, #13 






JR 


GETRCODE 




APTR15 : 


LD 


ADDRESS, #15 




GETRCODE : 


LD 


Ipcntr, #2 




GETRCODE1 : 


CALL 


READMEMORY 






LD 


@RCPTR, MTEMPH 


;HI BYTE 




DEC 


RCPTR 






LD 


@ RCPTR, MTEMPL 


; LO BYTE " 




DEC 


RCPTR 






DEC . 


ADDRESS 






DJNZ 


Ipcntr, GETRCODE 1 


;done? 




INC 


RCPTR 




^ ****************************************^ 


; Increment Rolling Code by 3 




;******************************** ********************************* 


INCRCBY3 : 


srp 


* #REGGRP10 






ADD 


@rcptr, #3d 


. ;Add 3 to Rolling Code 




LD 


bitptr,#3d 


INCRNEXT: 


INC 


rcptr 






ADC 


@rcptr, #0 






DJNZ. 


bitptr, INCRNEXT 




■*****************************************^ 


Store updated 


Rolling Code in EEPROM 


;************************** ************^ 




CALL 


CKB1 


; SAME BUTTON STILL 




CP 


ACODE 1 9BM , AC 1 9 


; PRESSED? 




jP 


nz, SCHTOPP 






srp 


#REGGRP 60 






ADD 


ADDRESS, #2 


/START EEPROM ADDRESS 


SAVRCODE : 


LD 


lpcntra, #2 




SAVRCODE1 : 


LD 


MTEMPH, 0RCPTR 


;hi byte 




DEC 


RCPTR 




LD 


MTEMPL, @ RCPTR 


; lo byte 




CALL 


WRITEMEMORY 




DEC 


RCPTR 






DEC 


ADDRESS 






DJNZ 


lpcntra, SAVRCODE 1 




INC 


RCPTR 
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************************************************** ********************** 

get ACODE0BM-ACODE18BM from eeprom 
********************************************.**************************** 





srp 


#REGGRP4 0 








Id 


address, #9 


/highest eeprom addr 




Id 


acodeptr, #ACODE18BM 


/highest acode ram 


addr 


GETACODE : 


CALL 


READMEMORY 








Id 


Q a codeipt r , mt emph 


/hi byte 






DEC 


acodeptr 








CP 


acodeptr, #4Fh 


/4fh? done? 






JR 


z , ACODONE 








Id 


@ acodept r , mt empl 








DEC 


address 








djnz 


acodeptr, GETACODE 






ACODONE : 










. ************* 


******** 


******************************************** 




Mirror 


RCXO, 1, 


2,3 into RCMIR0,1,2,3 and 


zero MSB 




• ************* 


******** 


******************************* * ** ********** 




MIRROR : 


srp 


#REGGRP10 








Id • 


codeptr, #RCMIR3 


/ RCMIR3 FIRST 




NBYTE : 


Id 


bitptr,#08d 


/ set bit counter 


to 7 


SHIFT: 


RL 


@rcptr 


; shift RC into ca 


rry 




RRC 


@ codeptr 


/ shift carry into 


mi nor 




DJNZ • 


bitptr, SHIFT 








CP 


codeptr, #RCMIR3 


/ if RCMIR3 then 






JR 


nz,NOTRC3 








AND 


- RCMI R3, #0111111 lb 


.; set bit 7 RCMIR3 


to 0 


NOTRC3: 


DEC 


codeptr 


/next rcmir 






INC 


rcptr 








CP 


codeptr, #35H 








JR 


nz, NBYTE 








sub 


rcptr, #4 







****************************************** ****************************** 

Trinary conversion & store in TRC0-TRC1 9 * 
************************************************************************. 



ZAGN : 



CALCTRNY : 



srp 


#REGGRP 00 


/set reg pntr 


LD 


lpcntr, #36H 


/ZERO OUT TRC 


DEC 


lpcntr 




CLR 


. @ lpcntr 




CP 


lpcntr, #20H 




JR 


nz, ZAGN 




LD 


TRCXX, #TRC19 




LD 


RCPTR, #20 




CP 


RCPTR, #01 


/calc trinary 


JR 


z, X3XX1 




CALL 


ENTR3 




CP 


RCPTR, #02 


;=2? 


JR 


z, TRICONVXX 




SUB 


RCPTR, #2 




LD 


tcntr, RCPTR 




ADD 


RCPTR, #2 
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ADDAGN : 



X3XX1 : 



TRICONVXX : 



INCTRCXX: 



ADDXXBK : 



CALL ENTR3A 

CALL AD 3 XX 

CALL AD3XX 

CALL XFER 

DJNZ tcntr, ADDAGN 



;add to itself 
;TCNTR=0? 



JR 


TKILuNVXX 




LD 


xJxaDca, turn 




clr 


x3xaDCal 




clr 


x3xaDca^ 




clr 


x3xabcd3 




SBC 


RCMIRO, x3xabcd 




SBC 


RCMIR1 , x3xabcdl 




SBC 


RCMIR2 , x3xabcd2 




SBC 


RCMIR3, x3xabcd3 




JR 


C, ADDXXBK 




INC 


@TRCXX 




JR 


TRICONVXX 




CCF 






LD . 


lpcntr, x3xabcd 




ADC 


RCMIRO, lpcntr 




LD 


Ipcntr , x3xabcdl 




ADC 


RCMIR1, lpcntr 




LD 


lpcntr , x3xabcd2 




ADC 


RCMIR2, lpcntr 




LD 


lpcntr, x3xabcd3 




ADC 


RCMIR3 , Ipcntr 




DEC 


' RCPTR 


; next 


DEC 


TRCXX 


; done 


CP 


TRCXX, #SYNC1 


; sync 


JR 


nz, NXCP 




DEC 


TRCXX 


; yes 


CP 


TRCXX, #1FH 


; no 


JR 


nz, CALCTRNY 





NXCP : 



****************************** 
Transmit initialization 



************************************************ 



****************************************** 

* 

************************* 



***************************** 

initialize RSFLAG * 
***************************** 



disrscall : 



tm 


RS232IP, #RS232IM 


; DATA IN LO? 


JR 


z, disrscall 




Id 


RSFLAG, #0FFh 


;set rs232 call enable flag 


srp 


#REGGRP4 0 


; set reg pntr 


LD 


SYNC1, #02H 


/INITIALIZE SYNC1 . 


LD 


acodeptr, #ACODE0BM-l 


; initialize 


LD 


trcptr, #SYNC0 


; for xmt 


LD 


BITPTR, #0f fH 




LD 


CODEPTR, #SYNC0 




LD 


xmtreg, SYNCO 




LD 


FRMCTRH , #02H 


;04H INIT FRAME COUNTER H 


LD 


FRMCTRL, #0A0H 


;0BH INIT FRAME COUNTER L 



A- it 
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clr address 

LD RS2 32DOCOUNT , #11D 

LD RS232DICOUNT, #0FFH 

LD RSCOMMAND, # OFFH 

clr mtflag 



: address for RS232 xfer 
■turn off RS232 output 
rturn off RS232 input 
•incoming data present 
rturn off rs232 command 
r initialize mtflag 



.************************************************************************ 

; ■ Wait for transmit INT * 

.************************************************************************ 



LD 
EI 



IMR, #TIMER ON I MR 



; INT Mask enable 
/enable INT 



LOOP : 

; ********************* *rs-2 32 Routine**** ******* * ************************ 



RSDATRDY : 


CP 


RSCOMMAND, #0FFH 


;RS232 DATA IN ? 




JR 


Z, XMTMTL 






CP 


mtflag, #0 






jr 


z , RCVMTH 




RCVMTL : 


LD 


mtempl, RS232DI 


; input mtempl 




Id 


' RSCOMMAND, #0FFH 






clr 


mtflag • 


; reset mtflag 




call 


WRITEMEMORY 


; write mtempl to E 




call 


READMEMORY 


; read mtempl from 


XMTMTH : 


Id 


RS2 32DO, mtemph 


; rs232 echo back 




Id 


RS START, # OFFH 


/mtemph 




clr 


RS2 32DOCOUNT 






Id 


. XMTFLAG, #0FFh 


/set flag 




inc 


address 






cp 


address, #16D 






jr 


nz, XMTMTL . 






clr 


address 


/set address to 0 




jr 


XMTMTL 




RCVMTH : 


Id 


mtemph, RS232DI 


/mtemph 




Id 


RSCOMMAND, #0FFH 






Id 


mtflag, # OFFH 




XMTMTL: 


cp 


XMTFLAG, #0FFh 


/ck for xmt first 




jr 


nz,CKSWS 






cp 


RS2 32DOCOUNT, #1 ID /test for output 




jr 


nz,CKSWS 






Id 


RS232DO, mtempl 


/echo back mtempl 




Id 


RSSTART, #0FFH 






clr 


XMTFLAG 





;***★★★*★*★★★★*******★*.****★*****★★★★********** ** *********************** 

CKSWS: CP FRMCTRH, #0 /FRAME CTR - 0? 



SCHTOPP : 



CP 
JR 
cp 
JR 
STOP 



FRMCTRH, #0 
nz, LOOP 
FRMCTRL, #0 
nz, LOOP 



. * * ********************************************************************** 

/ TIMER 1 INTERRUPT ROUTINE * 

.************************************************************************ 

T1_INT: CALL CKB1 

EI /enable interrupt 

CP RSFLAG, #0FFh /RS232 CALL ENABLE FLAG 

JR nz , BEGINT 
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call 
push 



RS232 
RP 



;RS232 I/O 

: ? 



* * * ******** 



***INT pulse on p2 6 ********************************* * 



OR 

NOP 

AND 



P2, #01000000B 
P2, #10111111b 



set P26 hi 



set P26 lo 



**************************************************************** 

************* *FRAME 0 sync pulse on P26********************************* 
CP LPCNTR, #00H /testing frame sync pulse * 



JR nz,NOSYNC 
OR P2, #01000000B 



; testing frame sync pulse 
; set frame sync pulse hi 





JR 


BEGINT 




; NO SYNC : 


AND 


P2, #10111111b 


/set frame sync pulse lo 


.*************************************************************** 


BEGINT: 


INC 


BITPTR 


/next bit 




CP 


LPCNTR, #00 


/LPCNTR 0 ? 




JR 


nz, NEXT 






CP 


BITPTR, #00 


/BITPTR 0 ? 




JR 


nz , NEXT 






SUB 


FRMCTRL, #1 


/ DECREMENT FRAME COUNTER 




SBC 


FRMCTRH, #0 




NEXT : 


' CALL 


XMT 


/XMT next bit 




CP 


LPCTR, #45 


/nibble 45? . 




JR 


nz,CKBP5 






7D 

0 K 

T DTTT 

1 KlL 1 


BITPTR, #1 
z,BP00 






• JR 
IRET 


BITPTR, #03h 
z,BP00 




BP 00 : 


LD 


BITPTR, # 0FFH 


/reset bit pointer 




INC 


LPCNTR 


/increment nibble pointe 


CK2145: 


CP 


LPCNTR, #21 


/ lpcntr>20? 




JR • 


mi,CK6790 


/no 


LP46: > 


CP 
JR 


LPCNTR, #46 
pi, CK6790 


/yes, lpcntr<4 6 


XMR00 : 


LD 

IRET 


xmtreg, #3 


/yes 


CK67 90: 


CP 
JR 
CP 
JR 


LPCNTR, #67 
mi, LP91 
LPCNTR, #91 
mi, XMR00 


/no 


LP91 : 


CP 
JR 


LPCNTR, #91- 
z,LPCTR00 


/LPCNTR=91? 


LPCTR00RET: 










TM 


LPCNTR, #00000001b ; LPCNTR bit0-0? 




JR 


nz, INCACODE 






DEC 


trcptr . 


/no 




LD 


CODEPTR, trcptr 






LD 


xmtreg, GCODEPTR 






IRET 






INCACODE: 


INC 


acodeptr 


/ yes 




LD 


CODEPTR, acodeptr 
xmtreg, QCODEPTR 






LD 






IRET 
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LPCTROO : 




clr 


LPCNTR 






LD 


TRCPTR, #SYNC0 






LD 


acodeptr, #ACODE0BM-l 






LD 


xmtreg, SYNCO 






LD 


CODEPTR/ #SYNCO 






I RET 




!******************************************************************^ 




ADD TRINARY NUMBER TO ITSELF ROUTINE * 


.************************************** **************** ****************** 






ADD 


x3xabcd, x3xtmp ; add to itself 






ADC 


x3xabcdl, x3xtmpl 






ADC 


x3xabcd2, x3xtmp2 






ADC 


x3xabcd3, x3xtmp3 






ret 




XFER: 




LD 


x3xtmp, x3xabcd 






LD 


x3xtmpl , x3xabcdl 






LD 


x3xtmp2 , x3xabcd2 






LD 


x3xtmp3, x3xabcd3 






ret 




ENTR3 : 




LD 


x3xabcd, #03h 






clr 


x3xabcdl 






clr 


x3xabcd2 






clr 


x3xabcd3 






ret 




ENTR3A: 




LD 


x3xtmp, #03h 






clr 


x3xtmpl 






clr 


x3xtmp2 - 






clr 


x3xtmp3 






ret 




'************************************************************************ 




TRANSMIT ROUTINE. * 


.************************************** * * ******************************** 


XMT: 




CP 


XMTREG, # 3 ; BLANK TIME? 






JR 


z, SBOLO ;yes 






CP 


XMTREG, #2 ; force trinary 






. JR 


ule,XMM 






Id 


XMTREG, #2 ;TWO 


XMM: 




LD 


XMTREG 1, XMTREG ; no, get xmt code 






COM 


XMTREG 1 /compliment 






AND 


XMTREG1, #00000011b /mask 2 LSB 






CP 


XMTREG1, BITPTR /compare bitptr to xmtreg 






JR 


le, SBOHI 


SBOLO : 




AND 


PO, #11111110b ;set POO lo 






RET 


PO, #00000001b ;set POO hi 


SBOHI : 




OR 






* RET 




.************************************************************************ 


; WRITE 


WORD 


TO MEMORY 




; ADDRESS IS 


SET IN REG 


ADDRESS 


; DATA 


IS IN 


REG MTEMPH 


AND MTEMPL 


; RETURN ADDRESS IS UNCHANGED 


.************************************************************************ 


WRITEMEMGRY: 










push 


RP / SAVE THE RP 
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If ISIjvJorvlr 4U / 


set the register pointer 


call 


STARTB 


output 


the start bit 


1U. 


serial, wuuiiuuuud 




set byte to enable write 


Call 


obRlALOU 1 




output the byte 


. and 


csport , #csl 


9 


reset the chip select 


can 


bTARTB ; 


output 


the start bit 


la 


serial, wuiuuuuuuo 




set the byte for write 


or 


serial, address 




or in the address 


can 


PDD T Tl T AT1T 

bERI ALOUT 


i 


output the byte 


Id 


serial, mtemph 


t 


set the first byte to write 


call 


SERIALOUT 


t 


output the byte 


Id 


serial, mtempl 


t 


set the second byte to writ 


e 

call 


SERIALOUT 


t 


output the byte 


call 


ENDWRITE 


; wait for the ready status 


call 


STARTB 


output 


the start bit 


clr 


serial 


set byte to disable write 


call 


SERIALOUT 




output the byte 


and 


csport, #csl 




reset the chip select 


pop 


RP 




reset the RP 


ret 








.******************************** *★★*★**** * * ************ ***************** 


; READ WORD FROM MEMORY 








; ADDRESS IS SET IN REG 


ADDRESS . 






; DATA IS RETURNED IN REG MTEMPH AND MTEMPL 




; ADDRESS IS UNCHANGED 








.************************************************************************ 


READMEMORY: . CALL 


CKB1 






push 


RP 


i 




srp 


#REGGRP4 0 


set the register pointer 


call 


STARTB 


output 


the start bit 


Id . 


serial, #10000000B 




preamble for read 


or 


serial , address 




or in the address 


call 


SERIALOUT 




output the byte 


call 


SERIALIN 




• read the first byte 


Id 


mtemph, serial 




• save the value in mtemph 


call 


SERIALIN 




• read ten second byte 


Id 


mtempl, serial 




• save the value in mtempl' 


and 


csport, #csl. 




• reset the chip select 


pop 


RP 






ret 








.A*********************************************************************** 


; START" BIT FOR SERIAL 


NONVOL 







ALSO SETS DATA DIRECTION AND AND CS 
************************************************************************ 

STARTB: 



data 
he bits 



Id 


P2M, #P2M_INIT 


set port 2 mode 


and 


csport , #csl 




and 


clkport, #clockl 




and 


dioport , #dol 




or 


csport, #csh 


; set the 


or 


dioport, #doh 


; set the 


or 


clkport, #clockh 


; set the 



start by clearing t 



A"' s 
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and 
and 
ret 



clkport, #clockl 
dioport , #dol 



reset the clock low 
set the data low 
return 



;************************ ************ ************************************ 

*********************** 
set port 2 mode forcing inp 



; END OF CODE WRITE 

.************************************************************************ 
* 



ENDWRITE: 
ut mode data 



ENDWRITELOOP: 

EWRLP : 
are done 



Id 


P2M, # <P2M_INIT+1) 


and 


csport , #csl 


nop 




or 


csport , #csh 


WDT - 




cp 


LPCNTRA, #1 


jr 


nz, EWRLP 


call 


CKB1 


Id" 


temph, dioport 


and 


temph, #doh 


jr 


z , ENDWRITELOOP ; 


and 


csport , #csl 


Id 


P2M, #P2M_INIT ; 


ret 





; reset the chip select 
; delay 

; set the chip select 
; kick the dog 



; read the port 
/ mask 



; reset the chip select 
set port 2 mode forcing output mode 



***************************************************** ******* 
SERIAL OUT 
. OUTPUT THE BYTE IN SERIAL 

.************************************************************************ 



SERIALOUT: 
data 



SERIALOUTLOOP:- 
the carry 
ONEOUT : 



Id 



P2M,#P2M IN IT 



ZEROOUT : 



Id 


tempi, #8H 




rlc 


serial 




jr 


nc, ZEROOUT 




or 


dioport, #doh 




or 


clkport, #clockh 


/ 


and 


clkport, #clockl 




and 


dioport, #dol 


» 


d jnz 


tempi, SERIALOUTLOOP 




ret 




r 
* 


and 


dioport , #dol 


9 


or 


clkport, #clockh 




and 


clkport, #clockl 


* 


and 


dioport, #dol 




d jnz 


tempi, SERIALOUTLOOP 




ret 







.************************************** 



set port 2 mode forcing output mode 
set the count for eight bit 

get the bit to output into 

output a zero if no carry 

set the data out high 
set the clock high 
reset the clock low 
reset the data out low 

loop till done 
return 

reset the data out low 
set the clock high 
reset the clock low 
reset the data out low 



loop till done 
return 

********************************** 



; SERIAL IN 

; INPUTS A BYTE TO SERIAL 



.*************************************** 
SERIALIN :- 

Id 



********************************** 
P2M,#(P2M INIT+1) ; set port 2 mode forcing inp 
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ut mode data 



SERIALINLOOP : 



DONTSET: 



Id 



or 

rcf 

Id 

and 

jr 

scf 

rlc 
and 
d jnz 

ret 



tempi, #8H 

clkport, #clockh 

temph, dioport 
temph, #doh 
z, DONTSET 



serial 

clkport, #clockl 
tempi, SERIALINLOOP 



; set the count for eight bit 



; set the clock high 

; reset the carry. flag 

; read the port 

; mask out the bits 

; set the carry flag 

; get the bit into the byte 

; reset the clock low 

; loop till done 

; return 



RS2 32 DATA ROUTINES 

enter rs232 start with word to output in rs232do 



RS2320START: 


Clr 


rsstart . 




Id 


rs232odelay, #6d 




clr ■ 


rs232docount 




and 


RS2320P, #RS2320C 




jr 


NORSOUT 


RS232: 


push 


rp 




srp 


#REGGRP10 




cp 


RSSTART, # OFFH 




jr 


z,RS2320START 


RS2 320UTPUT : 








cp 


rs232docount , #lld 




jr 


nz,RS232R 




or 


RS2320P, #RS2320S 




JR 


NORSOUT 


RS232R: 






lay 


djnz 


rs232odelay, NORSOUT 


inc 


rs232docount 


he next cycle 


scf 




for stop bits 






rrc 


rs232do 


he carry 






jr 


C, RS232SET 


then set 








and 


RS2320P, #RS2320C 




jr 


SETTIME 


RS232SET: 






or 


RS2320P, #RS2320S 


SETTIME: 








Id 


rs232odelay, #6d 




tm 


rs232docount, #00000 




jr . 


z, NORSOUT 



one shot 

set the time delay to 3. mS 
start with the counter at 0 
clear the output 



save the rp 

set the group pointer 

test for the start flag 



; test for last 

; set the output idle 

; cycle count time de 

; set the count for t 

; set the carry flag 

; get the data into t 

; if the bit. is high 

; clear the output 
; find the delay time 

; set the output 

; set the data output delay 
; test for odd words 

; if even done 
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Id rs232odelay, #7d 



2mS 

NORSOUT: . 
RS2 32 INPUT: 



ump 



cp 
tm 



ata- for lo start bit 
jr 

1 idle then skip 

clr 



RECEIVING: 
up 

ut 

ata 

etting carry 
SKIPSETTING: 
the memory 



DIEVEN: 

till next start 
NORSIN: 



fs232dicount, #OFFH 
nz, RECEIVING 

RS232IP, #RS232IM 

nz, NORSIN 



. rs232dicount 

Id rs232idelay, #3 

djnz rs232idelay, NORSIN 

inc rs232dicount . 

cp rs232dicount, #10d 

jr z, DIEVEN 

tm RS232IP, #RS232IM 

rcf 

jr z, SKIPSETTING 
SCf 

rrc rs232di 

Id rs232idelay, #6d 

tm rs232dicount , #00000001b 

jr . z, NORSIN 

Id rs232idelay, #7 

jr NORSIN 

Id rs232dicount, #0FFH 

Id rscommand, rs232di 

clr rsccount 



set the delay to 7 for odd 
; this gives 6.5 *.51 



test mode 

if receiving then j 

test the incoming d 

if the line is stil 

start at 0 

set the delay to mi 



skip till delay is 

bit counter 

test for last timeo 



; test the incoming d 

; clear. the carry • 
if input bit not set' skip s 

; set the carry 

;, save the data into 

; set the delay 
test for odd 

; if even .skip 
; set the delay 



turn off the input 

save the value 
clear the counter 

return the rp 



pop 
ret 

.******** ****★*★★***★*■* £ j^g * * ************* ******************************* 



CKB1 : 



CKB2 : 



CKB3: 



WDT 
tern 

DP 
clr 
Id 
RET 

tern 

DP 
Id 
Id 
RET 

tern 



P3, #S1 

nz,CKB2 

AC19 

RCP, #RC10B 



P3, #S2 
nz, CKB3 
AC19, #S2B39 
RCP, #RC2 0B 



P3 f #S3 



; HIT WDT 

/switch 1 pressed? 

,#S1B39 yes 

;set rcptr si 



;rio, switch 2 pressed? 

ryes 

;set rcptr s2 

;no, switch 3 pressed? 
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jp nz, HELL 

ld^ AC19,#S3B39 ;yes 

Id RCP,#RC30B ;set rcptr s3 

RET , 



HELL: NOP 

jr CKB1 
STOP 



FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 
FILL 

.end 
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TO SET TO 2uS clear each edge if timer extension times out then clear radio 
T1 set to 1 uS for 256 uS roll to turn on the interrupts and to generate the 1 mS 



Bit 35 


Bit 37 


Bit 39 


ID BIT 


Type 


0 


0 


Add In 


0 


Normal CMD 


0 


1 


Add In 


1 


Touch code 


0 


2 


Add In 


2 


Security 


1 


0 


Add In 


3 


»R Protector 


1 


1 


Key ID 


4 


Wall control 


1 


2 


Key ID 


5 


Up Down CMD 


2 


0 


Key ID 


6 


Up Down Stop 


2 


1 


Don't learn 


7 


Open Door Indicator 


2 


2 


Don't learn 


8 


Aux Function 



NON- VOL MEMORY MAP 



00 


A1 


RA1 


01 


A1 


RA1 


02 


A2 


RC1 


03 


A2 


RC1 


04 


A3 


RA2 


05 


A3 


RA2 


06 


A4 


RC2 


07 


A4 


RC2 


08 


A5 


RA3 


09 


A5 


RA3 


OA 


A6 


RC3 


0B 


A6 


RC3 


OC 


A7 


RA4 


0D 


A7 


RA4 


0E 


A8 


RC4 


OF 


A8 


RC4 


10 


A9 


RA5 


11 


A9 


RA5 


12 


A10 


RC5 


13 


A10 


RC5 


14 


A11 


RA6 


15 


A11 


RA6 


16 


A12 


RC6 


17 


A12 


RC6 


18 


B 


RA7 


19 


B 


RA7 


1A 


C 


RC7 


1B 


C 


RC7 



RADIOP5 
RADI01P5 
COUNTP5 
COUNT1 P5 



1C CYCLE COUNTER 1ST 16 BITS 
1D CYCLE COUNTER 2ND 16 BITS 
1E VACATION FLAG 

1 F A MEMORY ADDRESS LAST WRITTEN 
0XXXXXXX ABC CODES 
1XXXXXXX D CODES 



! 



20-2F OPERATION BACKTRACK 
30-3F FORCE BACK TRACE 



EQUATE STATEMENTS 



check sum value 


.equ 


0A2H 


TIMER 0 


.equ 


10H 


TIMER 0 EN 


.equ 


03H 


TIMER_1_EN 


.equ 


OCH 


P01M INIT 


.equ 


000001 00B 


P2M INIT 


.equ 


001001 00B 


P3M INIT 


.equ 


0000001 1 B 


P01S INIT 


.equ 


0000OO0OB 


P2S INIT 


.equ 


001 0011 OB 


P3S INIT 


.equ 


00000000B 



; set mode p00-p03 out 

; set port3 p30-p33 ANALOG input 



;• PERIODS 


i 

MONOPER 
RTOPERIOD 


.equ 
.equ 


38D 
130D 


; MONOSTABLE PERIOD MmS 
; period *4mS => min 4* period 


; INTERRUPTS 


ALL ON IMR 
RETURNJMR 


.equ 
.equ 


00111001b 
00111001b 


; turn on int for radio 
; return on the IMR 



Counter group 



CounterGroup 


.equ 


00 


LastMl Match 


.equ 


05H 


LastMatch 


.equ 


06H 


LoopCount 


.equ 


07H 


CounterA 


.equ 


08H 


CounterB 


.equ 


09H 


CounterC 


.equ 


OAH 


CounterD 


.equ 


OBH 


MirrorA - 


.equ 


OCH 


MirrorB 


. qu 


ODH 


MirrorC 


. qu 


OEH 


Mirror D 


.equ 


OFH 



counter group 

last match 1 delay location 

last matching code address 

loop counter 

counter translation MSB 



counter translation LSB 
back translation MSB 



back translation LSB 



loopcount 

countera 

counterb 

counterc 

counterd 

mirrora 

mirrorb 

mirrorc 

mirrord 



.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 



r7 
r8 
r9 

no 
m 

r12 
r13 
r14 
M5 



LEARN MODE SWITCHES AND ERASE 



LearnModeGroup 

SW_B 

CmdSwitch 

LearnDebounce 

LearnTimer 

SkipRadio 

ClearCount 

EraseTimer 

BIT13 

BIT1P5 

ID_B 

LASTBIT 

PAST_MATCH 

Mono 

RadioTimeOut 
SwitchSkip 

cmdswitch 

learndb 

learnt 

skipradio 

eraset 

rto 

mono 



.equ 10H 

.equ LearnModeGroup 

.equ LearnModeGroup+1 

.equ LearnModeGroup+2 

.equ LearnModeGroup+3 

.equ Learn M odeGroup+4 

.equ LearnModeGroup+5 

.equ LearnModeGroup+6 

.equ Learn M odeG roup+7 

.equ LearnModeGroup+8 

.equ LearnModeGroup+9 

.equ LearnModeGroup+1 0 

.equ LearnModeGroup+1 1 

.equ LearnModeGroup+1 3 

.equ LearnModeGroup+1 4 

.equ LearnModeGroup+1 5 



.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 



r1 

r2 

r3 

r4 

r6 

M4 

r13 



; LEARN EE GROUP FOR LOOPS ECT 



LearnEeGroup 
TempH 
TempL 
Temp 

COUNT1 P5H 

COUNT1P5L 

CMP 

MTempH 

MTempL 

MTemp- 

Serial 

Addr ss 

TOExt 

T4MS 



.equ 20H 

.equ LearnEeGroup 

.equ LearnEeGroup+1 

.equ LearnEeGroup+2 

.equ Learn EeGroup+3 

.equ LeamEeGroup+4 

.equ LearnEeGroup+5 

.equ LearnEeGroup+6 

.equ LearnEeGroup+7 

.equ LearnEeGroup+8 

.equ LearnEeGroup+9 

.equ LearnEeGroup+1 0 

.equ LearnEeGroup+1 1 

.equ LearnEeGroup+1 2 



command switch 
learn switch debouncer 
learn timer 

flag to skip the radio read 
erase timer 



radio time out 



counter value memory 
counter value memory 

; memory temp 
; memory temp 
; memory temp 

; serial data to and from nonvol memory 
; address for the serial nonvol m mory 
; timer 0 extend dec every TO int 
; 4 mS counter 



T125MS 

COUNTP5H 

COUNTP5L 

temph 

tempi 

temp 

cmp 

mtemph 

mtempl 

mtemp 

serial 

address 

tOext 

t4ms 

t125ms 



.equ LearnEeGroup+1 3 
.equ Learn EeGroup+ 1 4 
.equ LearnEeGroup+1 5 



.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 
.equ 



rO 
r1 
r2 
r5 
r6 
r7 
r8 
rS 

no 

M1 
r12 
r13 



125mS counter 
counter value memory 
counter value memory 



memory temp 
memory temp 
memory temp 

serial data to and from nonvol memory 
address for the serial nonvol memory 
timer 0 extend dec every TO int 
4 mS counter 
125mS counter 



RADIO GROUP 



RadioGroup 

RTemp 

RTempH 

RTempL 

RTimeAH 

RTimeAL 

RTimelH 

RTimelL 

RadioPSH 

RadioPSL 

PointerH 

PointerL 

AddValueH 

AddValueL 

RadioC 

Radiol P5H 

Radiol P5L 

rtemp 

rtemph 

rtempl 

rtimeah 

rtimeal 

rtimeih 

rtimeil 

radiop5h 

radiopSI 

pointerh 

pointerl 

addvalueh 

addvaluel 

radioc 

radiolpSh 

radio 1p5l 



.equ 30H 

.equ RadioGroup 

.equ RadioGroup+1 

.equ RadioGroup+2 

.equ RadioGroup+3 

.equ RadioGroup+4 

.equ RadioGroup+5 

.equ RadioGroup+6 

.equ RadioGroup+7 

.equ RadioGroup+8 

.equ RadioGroup+9 

.equ RadioGroup+10 

.equ RadioGroup+1 1 

.equ RadioGroup+1 2 

.equ RadioGroup+1 3 

.equ RadioGrbup+14 

.equ RadioGroup+15 

.equ rO 

.equ r1 

.equ r2 

.equ r3 

.equ r4 

.equ r5 

.equ r6 

.equ r7 

.equ r8 

.equ r9 

.equ MO 

.equ M 1 

.equ r12 

.equ ii3 

. qu r14 

.equ r15 



; radio temp storage 
; radio temp storage high 
; radio temp storage low 
; radio active time high byte 
; radio active time low byte 
; radio inactive time high byte 
; radio inactive time low byte 
; .5 code storage 
; .5 code storage 



; radio word count 
; 1 .5 code storage 
; 1.5 code storage 
; radio temp storage 
; radio temp storage high 
; radio temp storage low 
; radio active time high byte 
; radio active time low byte 
; radio inactive time high byte 
; radio inactive time low byte 
; radio .5 code storage 
; radio .5 code storage 



; radio word count 

; radio 1 .5 code storage 

; radio 1 .5 code storage 
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; Check sum group with past radio data 



CheckGroup. 


PHI 1 


*run 


check_sum 


.equ 


rO 


rom_data 


.equ 


n 


test_adr_hi 


.equ 


r2 


test_adr_Io 


.equ 


r3 


rflag 


.equ 


r4 


test_adr 


.equ 


172 


pradioa 


.equ 


r6 


pradiob 


.equ 


r7 


pradioc 


.equ 


r8 


pradiod 


.equ 


r9 


pradioe 


.equ 


no 


pradiof 


.equ 


r11 


pradiog 


.equ 


r12 


pradioh 


.equ 


M3 


Check_Sum 


.equ 


CheckGroup+O 


Rom Data 


.equ 


CheckGroup+1 


RFlag 


.equ 


CheckGroup+4 


RlnFilter 


.equ 


CheckGroup+5 


PRadioA 


.equ 


CheckGrbup+6 


PRadioB 


.equ 


CheckGroup+7 


PRadioC 


.equ 


CheckGroup+8 


PRadioD 


.equ 


CheckGroup+9 


PRadioE 


.equ 


CheckGroup+OAH 


PRadioF 


.equ 


CheckGroup+OBH 


PRadioG 


.equ 


CheckGroup+OCH 


PRadioH 


.equ 


CheckGroup+ODH 



; check sum pointer 



; check sum reg for por 
; data read 
; radio flags 
; radio input filter 
; past recteved value 
; past recieved value 
; past recteved value 
; past recieved value 
; past recieved value 
; past recieved value 
; past recieved value 
; past recieved value 



; Timer group with rs232 data 



TimerGroup 


.equ 


50H 


rs232do 


.equ 


r5 


rs232di 


.equ 


r6 


rscommand 


.equ 


r7 


rs232docount 


.equ 


r8 


rs232dicount 


.equ 


r9 


rs232odelay 


.equ 


no 


rs232idelay 


.equ 


m 


rs232ccount 


.equ 


r12 


rs232page 


.equ 


(i3 


rsccount 


.equ 


M4 


rsstart 


.equ 


ii5 


RADIO^CMD 


.equ 


TimerGroup+OH 


TaskSwitch 


. qu 


TimerGroup+2H 


SysDisable 


.equ 


TimerGroup+3H 


ADD2 . 


.equ 


TimerGroup+4H 



; radio command 

; system disable timer 



RS232DO 

RS232DI 

RSCommand 

RS232DoCount 

RS232DiCount 

RS2320Delay 

RS232IDelay 

RS232CCount 

RS232Page 

RSCount 

RSStart 

TestVal 



.equ TimerGroup+5 

.equ TimerGroup+6 

.equ TimerGroup+7 

.equ TimerGroup+8 

.equ TimerGroup+9 

.equ TimerGroup+1 0 

.equ TimerGroup+1 1 

.equ TimerGroup+1 2 

.equ TimerGroup+1 3 

.equ TimerGroup+1 4 

.equ TimerGroup+1 5 

.equ TimerGroup+1 6 



; rs232 byte counter 
; rs232 start flag 
; test value 



STACKTOP 
STACKEND 



RS2320S 

RS2320C 

RS2320P 

RS232IP 

RS232IM 

csh 

csl 

clockh 
clockl 
doh 
do! 

csport 

dioport 

clkport 



WDT 
WDH 
Fill 



.equ 


127D 


.equ 


060H 


.equ 


000001 00B 


.equ 


11111011B 


.equ 


P0 


.equ 


P3 


.equ 


0000001 0B 


.equ 


00000001 B 


.equ 


11111110B 


.equ 


0000001 0B 


.equ 


11111101B 


.equ 


00000001 B 


.equ 


11111110B 


.equ 


PO 


.equ 


P2 


.equ 


PO 


.macro 




.byte 


5fh 


.endm 




.macro 




.byte 


4fh 


.endm 




.macro 




.byte 


OFFH 



; start of the stack 
; end of the stack 



; RS232 output bit set 
; RS232 output bit clear 
; RS232 output port 
; RS232 input port 
; RS232 mask 

; chip select high for the 93c46 
; chip select low for 93c46 
; clock high for 93c46 
; clock low for 93c46 
; data out high for 93c46 
; data out low for 93c46 
, ; chip select port 
; data i/o port 
; clock port 



.endm 



Interrupt Vector Table 



.org 0000H 



.word RadioNeglnt 
.word 000CH 
.word 000CH 



;IRQ0 P3.2n 
;IRQ1, P3.3 
;IRQ2, P3.1 



.org 



.word RadioPosInt 

■word TimerZeroInt 
word TimerOnelnt 

page 
OOOCH 



;IRQ3, P3.2 p FOR EMULATION 
USE P3.0 FROM 28 PIN 
IRQ4, TO 
IRQ5, T1 



; WATCHDOG INITILIZATION 



start: 
START: 



di 

WDH 
WDT 



; turn off the interrupt for init 
; kick the dog 



Internal RAM Test and Reset All RAM = mS 



write_again: 
write_again1: 



sip 


#OF0h 


Id 


r15,#4 


WDT 




Id 


r14,#1 


Id 


<3>r15,r14 


cp 


r14,@r15 


K 


ne.system error 


rl 


r)4 


jr 
clr 


nc.write againl 


@r15 


inc 


r15 


cp 


r15,#7FH 


jr 


ult,write_again 



; point to control group use stack 
;r1 5= pointer (minimum of RAM) 

; KICK THE DOG 



;write 1,2,4,8,10,20,40,80 
;then compare 



,-write RAM(r5)=0 to memory 



Checksum Test 



CheckSumTest: 



add sum: 



system_error: 



srp #CheckGroup 

Id test_adr_hi,#07H 

Id test_adrJo,#0FFH 

WDT 

Idc rom_data,@test_adr 

add check_sum,rom_data 

decw test_adr 

jr nz,add_sum 

cp check_sum,#check_sum_ 

jr system_ok 

jr z,system_ok 

and P2,#11011101B 



value 



;maximum address=fffh 

; KICK THE DOG 
;read ROM code one by one 
;add it to checksum register 
;increment ROM address 
;address=0 ? 



;check final checksum = 00 ? 
; turn on the LED to indicate fault 



system_ok: 



Id P2M,#P2M_INIT 

jr system_error 

.byte 256-check_sum_value 

WDT 

srp #LearnModeGroup 

Id eraset,#OFFH 

Id CmdSwitch,#OFFH 

Id learnt,#OFFH 

Id learndb,#OFFh 

Id RSCommand,#OFFH 

Id RS232DoCount ,#1 1 D 



; turn oh the LED to indicate fault 



; kick the dog 

; set the group 

; set the erase timer 

; set the switch debouncer 

; set the learn timer 

; set the learn debounoe 

; turn off the rs232 command 

; turn off the rs232 output 



; STACK INITILIZATION 
SetStack: 



clr 254 

Id 255,#STACKTOP 



; set the start of the stack 



; TIMER INITILIZATION 



Id PRE0,#O0001001B 

Id PRE1 ,#000001 1 1 B 

clr TO 

clr T1 

Id TMR,#00001111B 



; PORT INITILIZATION 



Id P0,#P01SJNIT 

Id P2,#P2SJNIT 

ld P3,#P3SJNIT 

Id P01M,#P01MJNIT 

Id P3M.#P3MJNIT 

Id P2M,#P2M_INIT+1 



; MEMORY INITILIZATION 



; set the prescaler to / 2 for 8Mhz 
; set the prescaler to / 1 for 8Mhz 
; set the counter to count FF through 0 
; set the counter to count FF through 0 
; turn on the timers and load 



; RESET all ports 



; set mode 

; set port3 p30-p33 input analog mode 
; set port 2 mode 



Id Address,#3EH 
call ReadMemory 



; set non vol address to UNUSED 
; read the value to INIT 



A-2.-7 



t 



INITERRUPT INITILIZATION 



Set Interrupts: 



Id IPR.#00000001B 
Id IMR,#ALL_ON_IMR 
clr IRQ 



; set the priority to timer 
; turn on the interrupt 
; CLEAR IRQ'S 



MAIN LOOP 



MainLoop: 



TestRS232: 



SW1 OUT: 



SW20UT: 



L10UT: 



TEST34: 



TEST35: 



and 

WDT 

Id 

Id 

Id 

call 

srp 
cp 

jr 
cp 

V 
cp 

cp 

jr 

clr 

cp 

V 
or 

cp 

V 
or 

cp 

V 
or 



J' 

cp 

jr 

Id 

j' 

cp 
j' 



P2,#01111111b 

P01M,#P01M_INIT 

P3M.#P3M_INIT 

P2M,#P2M_INIT+1 

LEARN 

#Time'rGroup 

rsstart,#OFFH 

z,skiprs232 

rscommand,#OFFH 

z,skiprs232 

rs232docount,#11d 

nz,skiprs232 

rscommand,#30H 

nz,TEST34 

rs232do 

LearnDebounce,#OFFH 
nz.SWIOUT 
rs232do,#00000001 B 

CmdSwitch,#OFFH 

nz,SW20UT 

rs232do,#00000010B 

LearnTimer,#OFFH 
nz,L10UT 

rs232do,#00001 000B 



VacSwOpen 

rscommand,#34H 
nz.TEST35 
rs232page.#00H 
RS232PageOUT 

rscommand,#35H 
nz,TEST38 



enable interrupt 
turn off the flag 
kick the dog 
set mode 

set port3 p30-p33 input analog mode 
set port 2 mode : 

do the learn switch 



test for starting a transmission 
if starting a trans skip 
test for the off mode 

test for output done 
if not the skip 
test for switch data 

clear the data 

test switch one 

set the marking bit 

test switch 2 

set the marking bit 

test for learn 1 

set the marking bit 



test for page 0 



; test for page 1 
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. * 



RS232PageOUT: 
Id 

dec 

Id 

rcf 

rrc 

or 

call 

Id 

tm 

jr 
Id 

RPBYTE: 

cp 
jP 

L^STRPM: clr 
VacSwOpen: 

dec 
Id 

skiprs232: 

jP 

TEST38: 

cp 

Id 

srp 

dec 

Id 

Id 

call 
call 
Id 

call 
call 

CLEARALL: 

call 
clr 

MEMORYERROR: 
Id 

STARTOUT: 

inc 
dec 

SKIPRS232: 

clr 
clr 

srp 

SINGLE: 

cp 



rs232page,#10H 



SkipRadio,#OFFH 
SwitchSkip 

Address.rsccount 

Address 

Address,rs232page 

ReadMemory 

rs232do,MTempH 

rsccount,#01H . 

z.RPBYTE 

rs232do,MTempL 

rsccount,#1 FH 

nz.STARTOUT 

rsccount 

restart 

rscommand,#OFFH 



SKIPRS232 



rscommand,#38H 

nz,SKIPRS232 

rs232do,#0FFH 

#LearnEeGroup 

SwitchSkip 

SkipRadio,#OFFH 

mtemph,#OFFH 

WRITEALL 

TESTALL 

mtemph,#O00H 

WRITEALL 

TESTALL 

CLEARCODES 
RS232DO 

RSCommand,#OFFH 

rsccount 
RSStart 



SwitchSkip 
SkipRadio 

#LeamModeGroup 



mono,#MONOPER 



set the skip radio flag 

turn off the switch testing for port 

direction control 

find the address 



; read the data 
; test which byte 



; test for the end 

; reset the counter 

; set the start flag 
; turn off command 
; return 



; test memory 

; flag set to error to start 

; skip testing the switches 
; set the skip radio flag 
; set the data to write 
; write all the words 
; test all memory 
; set the data to write 
; write all memory 
; test for the data retension 

; reset the memory for code 
; flag all ok 

; turn off command 

; set to the next address 
; set the start flag 



; clear the skip switches flag 
; clear the skip radio flag 



; test for the period 



2,9 



TESTCONS: 



TurnOffOutput: 



SIGDONE: 
TOGGLE: 



and 
Id 

di 
cp 
J> 

and 
Id 



ult.TESTCONS 
P2,#1 11 10111b 
mono,#0FFH - 



rto,#RTOPERIOD 
ult.SIGDONE 

P2,#11101111b ./ 
rto,#0FFH 



; if not then test constant output 
; clear the output 



; test for the timeout 



jP 



MainLoop 



; clear the output 



; loop forever 



WRITEALL: 



WRITELOOP1: 



TESTALL: 
READLOOP1: 



Id 
Id 
clr 

WDT 
calf 
inc 
cp 

jr 
ret 



clr 

WDT 

call 

cp 

JP 
cp 

jP 

inc 

cp 

jr 
ret 



mtempl,mtemph 
TestVal.mtemph 
address 



WRITEMEMORY 
address 
address,#40H 
nz.WRITELOOPI 



address 



ReadMemory 

mtemph,TestVal 

nz.MEMORYERROR 

mtempl.TestVal 

nz.MEMORYERROR 

address 

address,#40H 

nz.READLOOPI 



start at address 00 



do the next address 
test for the last address 



; start at address 0 



; read the data 

; test the value 

; if error mark 

; test the value 

; if error mark 

; set the next address 

; test for the last address 



; Timer 0 interrupt 



TimerZeroInt: 

cp 

dec 
iret 

ClearRadioTimeout : 
call 



JP 



T0Ext,#00 

z.ClearRadioTimeout 
TOExt 



ClearCounter 



push RP 



ClearRadio 



; test for the roll 

; if at the roll time out 

; decrement the time extension 



; clear the counter 

; for the Clear radio code segment 

; dear the radio data 



A 



Radio interrupt from a edge of the radio signal 



RadioNeglnt: 



RadioPosInt: 



and IMR,#1liilH0b 

Id RTemp,#00000001B 

jr RadioEdge 

and IMR,#1 11101 11b 

Id RTemp.#O0000O00B 

jr RadioEdge 



; turn off the interrupt for 256uS 
; mark which edge 



; turn off the interrupt for 256uS 
; mark which edge 



RadioEdge: 



RlncDone: 
RTimeOk: 

RTimeDone: 

InActiveTime: 

GolnActive: 
ClearCounter: 



ActiveTime: 



Go Active: 



push 


RP 


srp 


#RadioGroup 


Id 


rtemph,TOExt 


Id 


rtempl,T0 


tm 


IRQ,#0001 0000b 


jr 


z,RlncDone 


tm 


rtempl t #1 0000000b 


jr 


z, RlncDone 


dec 


rtemph 


call 


ClearCounter 


com 


rtemph 


com 


rtempl 


cp 


rtemp,#0 


jr 


z.ActiveTime 


cp 


RlnFilter,#OFFH 


V 


z.GolnActive 


K 


RADIO_EXIT 


clr 


RlnFitter 


Id 


rtimeih,rtemph 


Id 


rtimeil.rtempl 


V 


RADIO_EXIT 


Id 


TMR,#00001000b 


Id 


TMR,#0000i001b 


Id 


TMR, #0000 1000b 


Id 


TMR,#00001010b 


Id 


T0Ext,#0FFH 


and 


IRQ,#11100110b 


ret 





cp RlnFilter,#O0H 
jr z, Go Active 
jr RADICLEXIT 



; save the reg pair 

; set the register pointer 

; read the upper byte 

; read the lower byte 

; test for a pending timer interrupt 

; done 

; test for the rollover 

; if not the rolled value skip inc 

; increase the timer msb 

; clear the counter 

; flip to find the period 



; test the port for the edge 

; if it was the active time then branch 

; test for active last time 
; if so continue 
; if not the return 

; set flag to inactive 

; transfer the period to inactive 

; return 

; turn off timer 0 
; load to 

; restart the timer 
; reset the timer 
; turn off pending int 



; test for active last time 
; if so continue 
; if not the return 
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i 



GotBothEdges: 



SyncOk: 



RlnFilter,#OFFH 

Id rtimeah.rtemph 

Id rtimeal.rtempl 

ei 

cp radioc,#0 

jr nz.lNSIG 

inc radioc 

cp rtimeih,#30h 

jr ult.ClearJump 

cp rtimeah,#OOh 

jr nz.SyncOk 

cp rtimeal,#80H 

jr ult.ClearJump 

cp rtimeah,#9h 

jr uge.ClearJump 



; transfer the period to active 



; enable the interrupts 

; test for the blank timing 

; if not then in the middle of signal 

; set the counter to the next number 

; test for the min 24.5 mS 

; if not then clear the radio 

; test first the min sync 

; first byte 00 if not great enough 

; test for 256uS min 

; if less then clear the radio 



; test for the max time 4.6mS 
; if not clear 



SETP5: 



P5MSFLAG: 



Q1P5MSFLAG: 



DONESETP5: 
RADIO EXIT: 



Clear Jump: 



INSIG: 



ISigOk: 



cp rtimeah,#02h 

jr uge.OI P5MSFLAG 

or RFIag,#01 000000b 

clr radiopSh 

clr radiopSI 

clr COUNTP5H 

clr COUNTP5L 

jr DONESETP5 

and RFIag,#101111l1b 

clr radio"! p5h 

clr radiolpSI 

clr COUNT1P5H 

clr COUNT1P5L 



pop rp 
iret 



or P2,#1 0000000b 
jp ClearRadio 



cp rtimeih,#0AH 

jr uge.ClearJump 

cp rtimeih.#00h 

jr nz, ISigOk 

cp rtimeil,#080h 

jr ult,ClearJump 

cp rtimeah,#0AH 

jr uge.ClearJump 

cp rtimeah,#00h 



test for 1 .5 vs .5 
set the 1.5 flag 

set the 0.5ms memory flag 
clear the memory 

clear the memory 

do the 2X 

set the 1.5ms memory flag 
clear the memory 

dear the memory 



; done return 



; turn of the flag bit for clear radio 
; clear the radio signal 



; test for the max width 5.1 6 

; if too wide clear 

; test for the min width 

; if greater then 0 then signal ok 

; test for 256us min 

; if not then clear the radio 

; t st for the max width 

; if too wide clear 

; if greater then 0 then signal ok 



jr 

cp 

jr 

ASigOk: 

sub 

sbc 

tm 

jr 

jr 

POSDIFF2: 

cp 

jr 

jr 

NEGDIFF2: 

com 

CP 

jr 

jr 

01P5MS: 

Id 
jr 

01PMSC: 

com 

01PMS: 

Id 
jr 

P5MSC: 

com 
Id 

GOTB1 P5: 

clr 
clr 
clr 
dr 
ei 

ADDB1P5: 

tm 
jr 

RC1P5INC: 

tm 
Jr 

Radiol P5INC: 

cp 
jr 

Radiol P5R: 

Id 
Id 
jr 

SPECIAL_BITS: 
cp 
jr 
dr 



nz.ASigOk 

rtimeal t #080h 

ult.ClearJump 

rtimeal,RTimelL 
rtimeah.rtimeih 
rtimeah,#1 OOOOOOOb 
nz,NEGD!FF2 
POSDIFF2 

rtimeah t #01H 

ult.OlPMS 

01P5MS 



rtimeah 
rtimeah ,#01 H 
ult.OlPMSC 
P5MSC 

BIT1P5,#2h 
GOTB1P5 

rtimeah 

BITlP5,#1h 
GOTB1P5 

rtimeah 
BIT1P5 t #0h 

rtimeah 
rtimeal 
rtimeih 
rtimeil 



RFIag,#01 000000b 
nz.RCPSINC 



radioc,#00000001 b 
Z.COUNT1P5INC 



radioc,#15D 
uge f SPECIAL_BITS 

pointerh,#Radio1 P5H 
pointerl,#Radio1 P5L 
AddAII 

radioc,#1 5d 
nz,SKIPJD_ZERC> 
ID B 



; if too narrow clear 
; test for 256us min 
; if not then clear the radio 

; find the difference 

; find out if neg 

; use 1 for ABC or D 



;test for 1.5/1 
; mark as a 1 



; invert 

; test for 1/.5 

; mark as a .5 

; set the value 



; invert 

; set the value 



; invert 

; set the value 
; clear the time 



; enable interrupts 
; test for radio p5/ 1p5 



; test for even odd number 
; if odd number counter 

; else radio 

; test the radio counter for the specials 
; save the spedal bits seperate 

; get the pointer 



; test for the first special 
; if not then skip zeroing 
; else dear the id bits 



A 



! 



SKIPJD ZERO: 



SWltCHID: 



cp 


radioc,#19d 


V 


z.SWITCHID 


Id 


rtemph,ID_B 


add 


ID_B,rtemph 


add 


ID B.rtemph 


add 


ID B.BIT1P5 


V 


Radiol P5R 


Id 


SW B.BIT1P5 


cp 


ID_B,#03d 


V 


ule, Radiol P5R 


clr 


BIT1P5 




Radiol P5R 



RCP5INC: 



RadioP5INC: 



tm radioc,#00000001 b 
jr Z.COUNTP5INC 



Id pointerh,#RadioP5H 
Id pointerf,#RadioP5L 
jr AddAII 



COUNT1P5INC: 



COUNTP5INC: 



Id pointerh t #COUNT1 P5H 
Id pointerl,#COUNT1 P5L 
jr AddAII 



AddAII: 



ALLADDED: 
TWENTY?: 



Id pointerti,#COUNTP5H 
Id pointerl,#COUNTP5L 
jr AddAII 



Id rtemph,@pointerh 

Id rtempl,@pointerl 

Id addvalueh,@pointerh 

Id addvaluel,@pointerl 

add addvaluel.rtempl 

adc addvalueh.rtemph 

add addvaluel.rtempl 

adc addvalueh.rtemph 

add addvaluel,BIT1P5 

adc addvalueh.#KX)h 

Id @pointerh f addvalueh 

Id @pointerl t addvaluel 

inc radioc 

and Rnag f #11011111B 

cp radioc,#21D 

jp nz.RRETURN 

tm RRag,#O0O1O000B 



; test for the switch id 
; if so then branch 

; save the special bit 

;'3 

; add in the new value 



; save the switch ID 
; test for the add in values 
; add in if 3 < 
; else dont add in 



; test for even odd number 
; if odd number counter 

else radio 
get the pointer 



; get the pointer 

; get the pointers 

get the value 
get the value 

addx2 
add x3 

add in new number 
save the value 

; increase the counter 



; clear the bit for 10 bits 
; test for 20 
; if not then return 
; test flag 20 bit code 



FIRST20: 



GOT20CODE: 



KNOWCODE: 





nz, r\NUWC/UDc 


or 


' RPIan J(fi/V^i AnnnD 


clr 


radioc 


jP 


RRETURN 


cp 


ID_B,#07d 


jP 


uge.ClearRadio 


cp 


ID B,#04d 


jr 


uge, KNOWCODE 


add 


COUNT1 P5L.SW B 


adc 


COUNTlP5H,#00h 



; if the second 20 bits received 

; set the flag 

; clear the radio counter 

; return 

; test for the don't use ones 
; clear don't use 
; test for the don't add in ones 
; if so then don't add in 
; add in switch id 



Translate the counter back to normal 
start 

CounterA CounterB CounterC 

00 00 Count1P5H 

MirrorA MirrorB MirrorC 

00 00 CountP5H 



CounterD 
Countl P5L 
MirrorD 
CountPSL 



srp 

clr 

clr 

Id 

Id 

clr 

clr 

Id 

Id 

call 

Id 

call 

Id 

call 
Id 

call 
Id 

call 
Id 

call 
Id 
call 
Id 

call 

Id 

call 

MirrorTheCounter: 
call 

CounterCorrected: 
cp 

jP 
cp 



#CounterGroup 

countera 

cpunterb 

counterc t COUNT1 P5H 
counterd,COUNTl P5L 
mirrora 
mirrorb 

mirrbrc.COUNTPSH 

mirrord f COUNTP5L 

AddMirrorToCounter 

loopcount,#3 

RotateMirrorAdd 

loopcount,#2 

RotateMirrorAdd 

loopcount,#2 

RotateMirrorAdd 

loopcount,#2 

RotateMirrorAdd 

loopcount,#1 

RotateMirrorAdd 

loopcount f #3 

RotateMirrorAdd 

loopcount,#1 

RotateMirrorAdd 

loopcount,#1 

RotateMirrorAdd 



MirrorCounter 

SkipRadio.^OFFH 

z.ClearRadio 

LearnTimer,#0FFH 



; set the group 

; clear the counter Msb value 

i 

; Set the value to countl p5 

; Set the mirror (temp reg for now) 
;tocountp5 



; find countpS * 3 A 10 + countl p5 



; mirror the counter 

; test for the skip radio flag 
; if active do not test the cpde 
; test for in learn mode 



A 



-3sr 



jp 

STORECODE: 
DCODESTORE: 
cp 

J> 
cp 

jr 
cp 

jr 
cp 

jr 
cp 

jr 
cp 

jr 
cp 

jr 
cp 

jr 

MatchedForStore: 
srp 
call 
cp 
jr 
Id 

call 
add 

CP 

jr 

clr 

GOTDADDRESS: 
Id 
Id 

call 
Id 
call 
jr 



WRITEAGAIN: 



z.TESTCODE 



PRadioA,radio1p5h 

nz.PPJMOTJVIJD 

PRadioB f radio1p5l 

nz,PP_NOT_MJ} 

PRadioC,radiop5h 

nz,PP_NOT_M_D 

PRadioD,radiop5l 

nz,PP_NOT_M_D 

PRadioE.MirrorA 

nz,PP_NOT_MJ> 

PRadioF.MirrorB 

nz,PP_NOT_M_D 

PRadioG.MirrorC 

nz,PP_NOT_M_D 

PRadioH.MirrorD 

nz,PP_NOT_M_D 

#LearnEeGroup 

TESTMATCH 

address,#OFFH 

nz, WRITEAGAIN 

address,#1FH 

ReadMemory 

mtemph, #4d 

mtemph.#1CH 

ult, GOTDADDRESS 

mtemph 

mtempl, mtemph 
address,#1 FH 
WRITEMEMORY 
address, mtemph 
WRITE_D_CODE 
NOWR ITESTORE 



call WRITE_D_CODE 



NOWR ITESTOR E : 
or 
Id 
clr 
jr 



P2,#00000010B 
LearnTimer,#OFFH 
RadioTimeOut 
ClearRadio 



; if not in learn the test the code 



; test all 8 memorys for a match 

; if no match skip 

; test all 8 memorys for a match 

; if no match skip 

; test all 8 memorys for a match 

; if no match skip 

; test all 8 memorys for a match 

; if no match skip 

; test all 8 memorys for a match 

; if no match skip 

; test all 8 memorys for a match 

; if no match skip 

; test all 8 memorys for a match 

; if no match skip 

; test all 8 memorys for a match 

; if no match skip 



; test for a matching code 

; test for a match 

; if so store AGAIN for counter 

; set the address 

; read the value 

; find the next address 

; test for out of range 



store the new address 

set the code address to write 
output the D code 
; reset the leam mode 



; output the D code 



; turn off the LED for flashing 
; turn off the learn mode 
; disable command from leam 
; set for the next code 



PP NOT M D: 



Id PRadioA,radio1p5h 

Id PRadioB,radio1p5l 

Id PRadioC,radiop5h 

Id PRadioD,radiop5l 

Id PRadioE.MirrorA 

Id PRadioF.MirrorB 



; save the present into the past 
; save the present into the past 
; save the present into the past 
; save the present into the past 
; transfer the value 



Id PRadioG.MirrorC 
Id PRadioH.MirrorD 



; Clear interrupt 
ClearRadio: 



SKIPiRTO: 



RRETURN: 



; reset radio 



tm 

J> 
dr 


RFIag,#00000001B 

z.SKIPiRTO 

RadioTimeOut 


;.test for receiving without error 

; if flag not set then donot clear timer 

; clear radio timer 


dr 
dr 


RadioC 
RFlag 


; clear the radio counter 
; dear the radio flags 


pop 
iret 


RP 


; reset the RP 
; return 



; rotate mirror LoopCount * 2 then add 
RotateMirrorAdd: 



rcf 
rlc 
rlc 
rlc 
rlc 



mirrord 
mirrorc 
mirrorb 
mirrora 



djnz loopcount, RotateMirrorAdd 

•******************************##*♦****#***♦**« +************« 
» 

; Add mirror to counter 

AddMirrorToCounter: ^ 



; clear the carry 



; loop till done 



add 


counterd, mirrord 


• 


adc 


counterc,mirrorc 


i 


adc 


counterb, mirrorb 


t 


adc 


countera t mirrora 


i 


ret 






; Add mirror to counter 


MirrorCounter: 






Id 


loopcount,#32d 


; set the number of bits 


MirrorLoop: 




rrc 


countera 


; move the bits 


rrc 


counterb 


» 


rrc 


counterc 




rrc 


counterd 


i 


rlc 


mirrord 




rlc 


mirrorc 


> 


rlc 


mirrorb 




rlc 


mirrora 


i 


djnz 


loopcount, MirrorLoop 


; loop for all the bits 


ret 





/f-3-7 



TESTCODE: 

and 

sip 

call 

or 

cp 

jP 

D_CODE_MATCH: 
cp 
jr 
cp 
jr 
clr 



NewCode: 



GOT_D_CMD: 



P2,#11111101B 

#LearnEeGroup 

TESTMATCH 

P2,#00000010B 

Address,#OFFH 

z,TEST_TC_SEC 



RadioTimeOut,#0FFH 
2, NewCode 
LastMl Match, Address 
nz, NewCode 
RadioTimeOut 
jp ClearRadio 

srp #CheckGroup 

call TESTCOUNTER 

cp CMP,#00 

jp z,ClearRadio 

cp CMP,#OAAH 

jr z,GOT_D_CMD 

cp CMP,#07FH 

jr z,UPDATE_PAST 

cp PAST_MATCH, Address 

jr nz,UPDATE_PAST 

Id pradioa, Mirror A 

Id pradiob.MirrorB 

Id pradioc,MirrorC 

Id pradiod,MirrorD 

sub pradiod.pradioh 

sbc pradiocpradiog 

sbc pradiob,pradiof 

sbc pradioa.pradioe 

cp pradioa,#00 

jr nz,UPDATE_PAST 

cp pradiob,#00 

jr nz,UPDATE_PAST 

cp pradioc,#00 

jr nz,UPDATE_PAST 

cp pradiod,#00 

jr z,UPDATE_PAST 

cp pradiod,#04d 

jr ugt,UPDATE_PAST 

call STORE_D_COUNTER 



D^RADIO.COMMAND 

cp SysDisable t #32d 
jr ult,TEST_TC_SEC 



; turn on the LED for flashing 

; test the code for a match 

; turn off the LED for flashing 

; test for no match 

; if no match try touchcode and sec 



; test for the timeout 

; if timer inactive then look for a new 

; test for the same address as the past 

; if not then test for a new code 

; reclear the timer 

; and update the past 

; set the rp 

; test the counter for in range 

; test for a matching value 

; if the same then clear the radio 

; test for counter in range 

; got a command save radio counter 

; test for outside of - window 

; if so skip resync 

; test for the same address as the past 
; if not then update the past value 
; transfer the value 



; find the difference 

; test for less then 4 away 

; if not then update the past 

; if not then update the past 

; if not then update the past 
; test for the zero case 



; if not then update the past 
; save the new counter value 



; test for 4 seconds 
; if not test tc and sec 



cp RadioTimeOut,#RTOPERIOD ; test for first reception 



NOTP3A: 

NOTP3: 

NOTP3S: 



NOTNEWMATCH: 
Id 
jP 

UPDATE_PAST: 
Id 
Id 
Id 
Id 
Id 

jP 





ult.NOTP3A 


clr 


Mono 


or 


P2.#00011000B 


xor 


P2.#01000000B 


clr 


RadioTimeOut 


jr 


TEST_TC_SEC 



LearnTimer,#OFFH 
ClearRadio 



PAST_MATCH,Address 

pradioe.MirrorA 

pradiof,MirrorB 

pradiog.MirrorC 

pradioh.MirrorD 

ClearRadio 



; if second reception skip i and mono 
; clear the monostable 
; turn on the constant 
; toggle the T output 
; clear the timer 



; test tc and sec 



; set the learn timer "turn off" 
; clear the radio 



; save the past address 
; transfer the value 



; reset the radio 



We know the code does not match but if it was our touch code 
or security transmitter update the counter 



TEST_TC_SEC: 

srp 
cp 

J> 
cp 

J> 
jP 



TC_SEC: 
NEXT D: 



call 



cp 

jr 

cp 

jr 

dec 

MatchedCheckCounter: 
call 
cp 
jr 

TC_SEC_Store: 

call 

SkipStoreCounter: 
inc 

NO_TC_MATCH: 
add 
cp 



#LearnEeGroup 

ID_B,#1d 

z,TC_SEC 

ID_B,#2d 

z,TC_SEC 

ClearRadio 

address,#01d 

ReadMemory 
mtemph, Radiol P5H 
nz,NO_TC_MATCH 
mtempl, Radiol P5L 
nz,NO_TC_MATCH 
address 

TESTCOUNTER 

CMP t #OAAH 

nz ? SkipStoreCounter 

STORE_D_COUNTER 

address 

address,#4d 
address,#1CH 



; test for the touch code 
; jump if so 

; test for the security transmitter 
; jump if so 



; set the start addresss for the fixed 

; read the word at this address 

; test for the match 

; if not matching do the next address 

; test for the match 

; if not matching do the next address 

; reset the address 

; test the counter for in range 

; test for within range 

; if not kip storing the counter 

; save the new counter 



; set the address to the next code 
; test for the last address 



jr ult,NEXT_D ; if not the last address then try again 



GOTNO_TC_MATCH: 

jp ClearRadio 



Test the radio code counter and compares 
CMP 

00 => counter the same 

FF => counter out of range 

AA => counter in range 

7F => counter within - window no resync 

Address for test in address 



TESTCOUNTER: 

push 

srp 

inc 

inc 

call 

Id 

Id 

inc 

call 

sub 

Id 

Id 

cp 

jr 

cp 

jr 

cp 

jr 
cp 

jr 
Id 



CounterRet: 



pop 
ret 



NM COUNTER: 



CP 

jr 

cp 

jr 

cp 

jr 

cp 

jr 

call 
add 
adc 
adc 
adc 



RP 

#CheckGroup 

Address 

Address 

ReadMemory 

pradioa.MTempH 

pradiob f MTempL 

Address 

ReadMemory 

Address,#3d 

pradioc.MTempH 

pradiod,MTempL 

MirrorA.pradioa 

nz, N M_COUNTER 

MirrorB.pradiob 

nz,NM_COUNTER 

MirrorC.pradioc 

nz,NM_COUNTER 

MirrorD.pradiod 

nz,NM_COUNTER 

CMP,#00h 

RP 



pradioa.#0FFH 

nz.NORMALN 

pradiob,#OFFH 

nz.NORMALN 

MirrorA,#0H 

nz.NORMALN 

MirrorB,#0H 

nz.NORMALN 

Complement 

pradiod.MirrorD 

pradioc.MirrorC 

pradiob.MirrorB 

pradioa.MirrorA 



; save the RP 
; set the rp 

; set the address to the 2x position for 

» 

; read the value 
; temp storage 



; read the value 
; reset the address 
; temp storage 

; test first for the match 

; if not then test count position 

; if not then test count position 

; if not then test count position 

i 

; if not then test count position 
; flag the match 



; test for the roll over 
; if not test normally 
; test for the roll over 
; if not test normally 
; test for the rollover 
; if not test normally 
; test for the rollover 
; if not test normally 
; at roll com past add pres 

; add the 2 



4-0 



COUNTOUT: 



cp pradioc t #12d 

jr ule,COUNTOK 

call Complement 

cp pradioa,#00 

jr nz.OutOfWindow 

cp pradiob,#00 

jr nz.OutOfWindow 

cp pradioc,#000001 OOB 

jr ugt.OutOfWindow 

Id CMP,#7FH 

jr CounterRet 



; window 3072 or 1 024 activations 



find the - difference 

test for within 00000400H 



mark the -window function 
return 



OutOfWindow: 



COUNTOK: 



NORMALN: 



Id 


CMP,#0FFH 


i r 


CounterRet 


Id 


CMP,#0AAH 


jr 


CounterRet 


sub 


pradiod.MirrorD 


sbc 


pradioc.MirrorC 


sbc * 


pradiob.MirrorB 


sbc 


pradioa.MirrorA 


call 


Complement 


cp 


pradioa,#00 


V 


nz, COUNTOUT 


cp 


pradiob,#00 


jr 


nz, COUNTOUT 


cp 


pradioc,#1 1 D 


i r 


ule.COUNTOK 


jr 


COUNTOUT 



; set the bad count flag 
; return 

; set the count flag ok 
; return 

subtrace to find difference 



make positive 
test for to large 
if so out of window 
test for to large 
if so out of window 
window for 1024 



Complement: 



com 
com 
com 
com 
ret 



pradiod 
pradioc 
pradiob 
pradioa 



Complement the temp reg 



TESTMATCH TEST THE NON ROLLING PART OF ANY CODE IF THERE 
IS A MATCH RETURNS THE ADDRESS ELSE RETURNS FF 



TESTMATCH: 

TEST_D_CODES: 

clr address 

NEXT_D_CODE : 

call ReadMemory 

cp mtemph,RadioP5H 

jr nz,NOJD_MATCH 

cp mtempl.RadioPSL 

jr nz,NO_D_MATCH 



; start at address 0 

; read the word at this address 
;test for the match 

; if not matching then do n xt address 
; test for the match 

; if not matching then do n xt address 
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inc 
call 
cp 

cp 
jr 

dec 
V 

NO_D_MATCH: 

inc 

NO_D_MATCH2: 

add 

cp 

jr 

GOTNO_D_MATCH: 
Id 
ret 

TMEXIT: 

Id 
Id 
ret 



address 
ReadMemory 
mtemph, Radiol P5H 
nz,NOJD_MATCH2 
mtempl, Radio 1P5L 
nz,NO_D_MATCH2 
address 
TMEXIT 



address 

address,#3d 
address,#1 CH 
ult,NEXT_D_CODE 



address,#OFFH 



LastMl Match,LastMatch 
LastMatch.address 



; set the second half of the code 

; read the word at this address 

; test for the match 

; if not matching do the next address 

; test for the match 

; if not matching do the next address 

; reset the address 

; return with the address of the match 



; set the address to the next code 

; set the address to the next code 

; test for the last address 

; if not the last address then try again 



; set the no match flag 



; delay line 

; save the address for radio timeout 



LEARN DEBOUNCES THE LEARN SWITCH 80mS 

TIMES OUT THE LEARN MODE 30 SECONDS 

DEBOUNCES THE LEARN SWITCH FOR ERASE 6 SECONDS 



LEARN: 



ReleaseDone: 



multi2: 



SW2isSET: 



srp #LearnModeGroup 

cp cmdswitch,#236D 

jr nz.ReleaseDone 

clr cmdswitch 

cp cmdswrtch,#20D 

jr UGT.CLEARRA 

cp cmdswitch,#20D 

jr nz.TESTLEARN 



; set the group 

; test for the debouncer release 
; if not then test for set 
; dear the debouncer 

; test for switch 2 set 



; test for switch 2 set 
; if not then test learn 



CMDSW: 



CLEARRA: 



Id cmdswitch,#OFFH 

dr mono 

xor P2,#01000000B 

or P2,#00011000B 

dr rto 



; set the debouncer 

; clear the timer 
; toggle 
; set 



TESTLEARN: 



cp learndb,#236D 

jr nz.LEARNNOTRELEASED 



; test for the debounced release 
; if not released then jump 



A -4^- 



i. 



clr 



ret 



learndb 



LEARNNOTRELEASED: 



SETLEARN: 



ERASETEST: 



ERASETIMING: 



ERASETIME: 



V 
ret 

or 
Id 

call 
clr 



Id 
ret 

ERASERELEASE: 
Id 
ret 



cp learnt,#OFFH 

jr nzJNLEARN 

cp learndb,#20D 

jr nz, ERASETEST 

clr learnt 

Id leamdb,#OFFH 

and P2,#11111101b 

cp learndb,#OFFH 

jr nz, ERASERELEASE 

cp eraset f #OFFH 

jr nz.ERASETIMING 

clr eraset 

eraset,#48D 
z.ERASETIME 



INLEARN: 



TESTLEARNTIMER: 
CP 



learnoff: 



P2,#00000010b 
skipradio,#K)FFH 
CLEARCODES 
skipradio 

learnt,#OFFH 
eraset,#OFFH 



cp learndb,#20D 
jr nz.TESTLEARNTIMER 
Id leamdb,#OFFH 

learnt,#240D 
nz, ERASETEST 

or P2,#00000010B 

kJ learnt,#OFFH 

Id leamdb,#OFFH 

jr ERASETEST 



; clear the debouncer 
; return 



; test for learn mode 

; if in learn jump 

; test for debounce period 

; if not then test the erase period 

; clear the learn timer 
; set the debouncer 
; turn on the led 

; test for learn button active 

; if button released set the erase timer 

; test for timer active 

; if the timer active jump 

; dear the erase timer 

; test for the erase period 
; if timed out the erase 
; else we return 

; turn off the led 

; set the flag to skip the radio read 
; clear all codes in memory 
; reset the flag to skip radio 

; set the learn timer 
; return 

; turn off the erase timer 
; return 



; test for the debounce period 
; if not then test the learn timer 
; set the learn db 

; test for the learn 30 second timeout 
; H not then test erase 

; turn off the led 
; set the learn timer 
; set the leiam debounce 
; test the erase timer 



WRITE WORD TO MEMORY 
ADDRESS IS SET IN REG ADDRESS 
DATA IS IN REG MTEMPH AND MTEMPL 
RETURN ADDRESS IS UNCHANGED 
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• 



WRITEMEMORY: 



push 


RP 


srp 


#LearnEeGroup 


call 


STARTB 


Id 


serial,#00110000B 


call 


SERIALOUT 


and 


csport f #csl 


call 


STARTB 


Id 


serial,#01000000B 


or 


serial, address 


call 


SERIALOUT 


Id 


serial.mtemph 


call 


SERIALOUT 


Id 


serial t mtempl 


call 


SERIALOUT 


call 


ENDWRITE 


call 


STARTB 


Id 


serial,#O00O0OOOB 


call 


SERIALOUT 


and 


csport,#csl 


pop 


RP 


ret 





; SAVE THE RP 

; set the register pointer 

; output the start bit 
; set byte to enable write 
; output the byte 
; reset the chip select 
; output the start bit 
; set the byte for write 
; or in the address 
; output the byte 
; set the first byte to write 
; output the byte 
; set the second byte to write 
; output the byte 
; wart for the ready status 
~; output the start bit 
; set byte to disable write 
; output the byte 
; reset the chip select 
; reset the RP 



READ WORD FROM MEMORY 

ADDRESS IS SET IN REG ADDRESS 

DATA IS RETURNED IN REG MTEMPH AND MTEMPL 

ADDRESS IS UNCHANGED 



ReadMemory: 



push 


RP 


srp 


#LearnEeGroup 


call 


STARTB 


Id 


serial,#10000000B 


or 


serial, address 


call 


SERIALOUT 


call 


SERIALIN 


Id 


mtemph.serial 


call 


SERIALIN 


Id 


mtem pi .serial 


and 


csport,#csl 


pop 


RP 


ret 





; set the register pointer 

; output the start bit 

; preamble for read 

; or in the address 

; output the byte 

; read the first byte 

; save the value in mtemph 

; read teh second byte 

; save the value in mtempl 

; reset the chip select 



WRITE D CODE TO 4 MEMORY ADDRESS 

CODE IS IN Radiol P5H Radiol P5L RadioPSH RadioP5L 

CODE IS IN Count1P5H Count1P5L CountP5H CountPSL 



WRITE_D_CODE: 

push RP ; 

srp #LearnEeGroup ; set the register pointer 

Id mtemph,RadioP5H { transfer the data 



A -44- 



Id 


mtemDl RadioP^I 

■ i • ici i ik/i 1 1 lauiwr wL. 


call 


WRITFMFMORY 


inc 


auui v7oo 


Id 


mtemoh Radio 1 PSH 


Id 


mtpmnt RaHinlPm 


call 


WRITFMFMORV 


■ inr 
ii lis 




NTFR- 

1^1 1 LI 1. 




Id 


1 1 lltJII ipil, IVliiTOrM 


Id 


mipmnl MirrorR 


can 


VA / □ 1 T C H 4 C ft A AD \/ 

WMI 1 cMtMURY 


inc 


address 


Id 


mtemph t MirrorC 


Id 


mtemp>l,MirrorD 


call 


WRITEMEMORY 


dec 


address 


dec 


address 


dec 


address 


pop 


RP 


ret 





STOR E _D_CO U NTE R : 

push RP 

srp #LeamEeGroup 

inc address 

inc address 

jr STORE_COUNTER 



; write the temp bits 
; next address 
; transfer the data 

>■ 

; write the temps 
; next address 

; transfer the data 

* 

; write the temps 
; next address 
; transfer the data 

i 

; write the temps 
; reset the address 



; return 



; set the register pointer 



START BIT FOR SERIAL NONVOL 

ALSO SETS DATA DIRECTION AND AND CS 



STARTB: 



Id 


P2M,#P2MJNIT 


and 


csport f #csl 


and 


clkport,#clockl 


and 


dioport t #dol 


or 


csport,#csh 


or 


dioport,#doh 


or 


dkport,#dockh 


and 


clkport,#dockl 


and 


dioport,#dol 


ret 





; END OF CODE WRITE 
ENDWRITE: 



Id 

and 
nop 
or 

WDT 
ENDWRITE LOOP: 
Id 



P2M,#(P2MJNIT+1) 
csport,#csl 

csport,#csh 
temph.dioport 



; set port 2 mode 

; start by clearing the bits 

; set the chip select 
; set the data out high 
; set the clock 
; reset the dock low 
; set the data low 
; return 



; set port 2 mode 
; reset the chip select 
; delay 

; set the chip select 
; kick the dog 

; read the port 



1 



and temph ( #doh -mask 

Lh - 2 ' EN DWR«TELOOP J if the bit is low then loop 

w ^? rt, o CSl ; reset the chip select 

d P2M,#P2M JNIT ; S et perl 2 mode forcing output mode 



; SERIAL OUT 

; OUTPUT THE BYTE IN SERIAL 



SERIALOUT: 

Id 
Id 

SERIALOUTLOOP: 
rlc 



ONEOUT: 



ZEROOUT: 



or 
or 
and 
and 

djnz 

ret 

and 
or 
and 
and 

djnz 

ret 



P2M,#P2MJNIT 
templ,#8H 

serial 

nc,ZEROOUT 

dioport,#ddh 
clkport,#clockh 
clkport,#clockJ 
dioport,#dol 

templ,SERIALOUTLOOP 



dioport,#dol 
clkport,#clockh 
clkport,#ctockl 
dioport,#dol 

templ.SERIALOUTLOOP 



; set port 2 mode 

; set the count for eight bits 

; get the bit to output into the carry 
; output a zero if no carry 

; set the data out high 
; set the clock high 
; reset the clock low 
; reset the data out low 

; loop till done 
; return 

; reset the data out low 
; set the dock high 
; reset the clock low 
; reset the data out low 

; loop till done 
; return 



; SERIAL IN 

; INPUTS A BYTE TO SERIAL 



SERIALIN: 

Id 
Id 

SERIALINLOOP: 
or 
rcf 
Id 

and 

scf 

rlc 
and 
djnz 

ret 



DONTSET: 



P2M,#(P2MJNIT+1) 
templ,#8H 

dkport,#clockh 

temph.dioport 
temph t #doh 
z, DONTSET 



serial 

dkport,#clockl 
templ t SERIALINLOOP 



; set port 2 mode 

; set the count for eight bits 

; set the clock high 
; reset the carry flag 
; read the port 
; mask out the bits 

; set the carry flag 

; get the bit into the byte 
; r set the dock low 

; loop till done 
; return 



CLEARCODES: 



ClearLoop: 



push 

di 

Id 

srp 

Id 

Id 

Id 

Id 

clr 

Id 

call 

add 

djnz 

clr 

clr 

Id 

call 

pop 

ret 



RP 

SkipRadio,#OFFH 
#LeamEeGroup 
Radiol P5H,#0FFH 
Radiol P5L,#0FFH 
RadioP5H,#0FFH 
RadioP5L,#0FFH 
address 
cmp,#07d 

WRITE_D_CODE 

address,#4d 

cmp.ClearLoop 

rhtemph 

mtempl 

address,#1 FH 

WRITEMEMORY 
RP 



; disable interrupts 

i 

; set the register pointer 

; set the codes to illegal codes 



; set the page 
; erase 7 values 

; clear this address 
; next clear address 
i 

; clear data 

; set the address 



; return 



JJMER UPDATE FROM INTERUPT EVERY .256mS 



TimerOnelnt: 



SkipRsRoutine: 



TASKO: 



TASK1: 
ONE MS: 



FOURMS: 



RTOOK: 



inc 
Id 
tm 
V 

call 

tm 
V 

iret 



srp 

inc 

inc 

CP 

jP 

clr 
cp 

J> 

inc 

ei 



TaskSwitch 
IMR,#REtURN_IMR 
TaskSwitch t #00000001 b 
nz.SkipRsRoutine 
RS232 

TaskSwitch,#0000001 1 B 
2,TASK1 



push RP 



#LearnModeGroup 

T4MS 

T125MS 

T4MS,#4D 

nz f TEST125 

T4MS 
rto,#OFFh 
z,RTOOK 
rto 



; set to the next switch 
; turn on the interrupt 
; even odd 
; do rs232 .5 mS 
; do the serial 

; test for task 0,1,2 or 3 
; task 1 every 1 mS 



; set the register pointer 
; increment the 4mS timer 
; increment the 125 mS timer 
; test for the time out 
; if not true then jump 

; reset the timer 

; test for the end of the rto 

; if the radio timeout ok then skip 

; increment the rto 

i 

; enable the interrupts 
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t 



MONOOK: 
TESTSW1 : 

SW1 SET: 
TESTSW2: 

SW2SET: 

TESTSWDB: 
TEST125: 

ONE25MS: 
TOG: 

D012: 

LEARNTOK: 
ERASETIOK: 



inc mono 

jr nz,MONOOK 

dec mono 

cp SwitchSkip,#O0 

jr nz f TESTl25 



tm P2,#O0100000B 

jr 2,SW1SET 

cp LearnDebounce,#OOH 

jr 2.TESTSW2 

dec Learn Debounce 

jr TESTSW2 

cp LearnDebounce,#OFFH 

jr 2,TESTSW2 

inc LearnDebounce 



tm P2 f #00000100B 

jr 2.SW2SET 

cp CmdSwitch,#OOH 

jr z,TESTSWDB 

dec CmdSwitch 

jr TESTSWDB 

cp CmdSwitch,#OFFH 

jr z,TESTSWDB 

inc CmdSwitch 



; increment the mono time out 
; if the mono timeout ok then skip 
; back turn 

; test for the skip switches command 



; test switch one 
; if set jump 
; test for min number 
; if at min skip dec 
; dec debouncer down 
; next 

; test for the max number 
; if at max skip inc 
; inc the debouncer 



; test switch two 
; if set jump 
; test for min number 
; if at min skip dec 
; dec debouncer down 
; next 

; test for the max number 
; if at max skip inc 
; inc the debouncer 



cp T125MS,#125D ; test for the time out 

jr 2.0NE25MS ; H true the jump 

pop RP 
iret 



ei 

clr T125MS 

cp SysDisable,#OFFH 

jr 2,D012 

inc SysDisable 

cp leamt,#OFFH 

jr 2.LEARNTOK 

inc learnt 

cp eraset,#OFFH 

jr 2.ERASET10K 

inc eraset 



; enable the interrupts 
; reset the timer 
; test for the top 

; count off the system disable timer 

; test for overflow 
; at roll over skip 
; increase the learn timer 

; test for ov rflow 

; if at roll skip 

; increase the erase timer 



pop 



RP 
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iret 



RS232 DATA ROUTINES 



enter rs232 start with word to output in rs232do 



RS2320START: 



push rp 

srp #TimerGroup 

clr RSStart 

Id rs232ode!ay,#6d 

clr rs232docount 

and RS2320P,#RS2320C 

jr NORSOUT 



; save the rp 

; set the group pointer 

; one shot 

; set the time delay to 3. mS 
; start with the counter at 0 
; clear the output 



RS232: 



RS2320UTPUT: 



RS232R: 



RS232SET: 
SETTIME: 



NORSOUT: 
RS232INPUT: 



RECEIVING: 



cp RSStart,#OFFH 

jr z,RS2320START 
T: 

push rp 

srp #TimerGroup 

cp rs232docount,#1 1 d 

jr nz,RS232R 

or RS2320P,#RS2320S 

JR NORSOUT 

djnz rs232odelay, NORSOUT 

inc rs232docount 

scf 

rrc rs232do 

jr C.RS232SET 

and RS2320P,#RS2320C 

jr SETTIME 

or RS2320P,#RS2320S 

Id rs232odelay,#6d 

tm rs232docount,#00000001 b 

jr z,NORSOUT 

Id rs232odelay,#7d 



cp rs232dicount,#OFFH 

jr nz.RECEIVING 

tm RS232IP,#RS232IM 

jr nz.NORSIN 

clr rs232dicount 

Id rs232idelay,#3 

djnz rs232idelay,NORSIN 



; test for the start flag 



; save the rp « 

; set the group pointer 

; test for last 

; set the output idle 



; cycle count time delay 

; set the count for the next cycle 

; set the carry flag for stop bits 

; get the data into the carry 

; if the bit is high then set 

; clear the output 

; find the delay time 

; set the output 

; set the data output delay 
; test for odd words 
; if even done 
; set the delay to 7 for odd 
; this gives 6.5 *.512mS 



;test mode 

; if receiving then jump 

; test the incoming data 

; if the line is still idle then skip 

; start at 0 

; set the delay to mid 
; skip till delay is up 
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SKIPSETTING: 



DIEVEN: 



NORSIN: 



inc 

cp 

jr 
tm 

rcf 

V 

set 

TTC 

Id 
tm 

V 
Id 



Id 
Id 
clr 

pop 
ret 



rs232dicount 

rs232dicount,#10d 

z.DIEVEN 

RS232IP,#RS232IM . 
2.SKIPSETTING 



rs232di 

rs232idelay,#6d 

rs232dicount, #00000001 b 
z.NORSIN 
rs232idelay,#7 
NORSIN 

rs232dicount,#0FFH 
rscommand,rs232di 
RSCount 

rp 



; bit counter 

; test for last timeout 

; test the incoming data 
; clear the carry 

; if input bit not set skip setting carry 
; set the carry 

; save the data into the memory 
; set the delay 
; test for odd 
; if even skip 
; set the delay 



; turn off the input till next start 
; save the value 
; clear the counter 

; return the rp 



.end 



Fill 
Fill 
Fill 
Fill 
Fill 
Fill 
Fill 



